/[gcl]/gcl/ansi-tests/string-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/string-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by pfdietz, Thu Aug 26 12:10:33 2004 UTC revision 1.7 by pfdietz, Thu Sep 2 11:46:15 2004 UTC
# Line 69  Line 69 
69    
70  (defun make-random-string-compare-test (n)  (defun make-random-string-compare-test (n)
71    (let* ((len (random n))    (let* ((len (random n))
72           ;; Lengths of the two strings           ;; Maximum lengths of the two strings
73           (len1 (if (or (coin) (= len 0)) len (+ len (random len))))           (len1 (if (or (coin) (= len 0)) len (+ len (random len))))
74           (len2 (if (or (coin) (= len 0)) len (+ len (random len))))           (len2 (if (or (coin) (= len 0)) len (+ len (random len))))
75             (s1 (make-random-string len1))
76             (s2 (make-random-string len2))
77             ;; Actual lengths of the strings
78             (len1 (length s1))
79             (len2 (length s2))
80           ;; Lengths of the parts of the strings to be matched           ;; Lengths of the parts of the strings to be matched
81           (sublen1 (if (or (coin) (= len1 0)) (min len1 len2) (random len1)))           (sublen1 (if (or (coin) (= len1 0)) (min len1 len2) (random len1)))
82           (sublen2 (if (or (coin) (= len2 0)) (min len2 sublen1) (random len2)))           (sublen2 (if (or (coin) (= len2 0)) (min len2 sublen1) (random len2)))
# Line 83  Line 88 
88           (start2 (if (coin 3) 0           (start2 (if (coin 3) 0
89                     (max 0 (min (1- len2) (random (- len2 sublen2 -1))))))                     (max 0 (min (1- len2) (random (- len2 sublen2 -1))))))
90           (end2 (+ start2 sublen2))           (end2 (+ start2 sublen2))
91           ;; generate the strings           )
          (s1 (make-random-string len1))  
          (s2 (make-random-string len2)))  
92      #|      #|
93      (format t "len = ~A, len1 = ~A, len2 = ~A, sublen1 = ~A, sublen2 = ~A~%"      (format t "len = ~A, len1 = ~A, len2 = ~A, sublen1 = ~A, sublen2 = ~A~%"
94              len len1 len2 sublen1 sublen2)              len len1 len2 sublen1 sublen2)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26