Parent Directory | Revision Log | Patch
revision 1.18 by pfdietz, Sat Oct 11 14:10:37 2003 UTC | revision 1.19 by pfdietz, Sat Oct 11 16:00:14 2003 UTC | |
---|---|---|
# | Line 151 | Line 151 |
151 | `(,op ,(make-random-integer-form (1- size))))) | `(,op ,(make-random-integer-form (1- size))))) |
152 | (2 `(isqrt (abs ,(make-random-integer-form (- size 2))))) | (2 `(isqrt (abs ,(make-random-integer-form (- size 2))))) |
153 | ||
#-cmu | ||
154 | (2 | (2 |
155 | (destructuring-bind (s1 s2) | (destructuring-bind (s1 s2) |
156 | (random-partition (- size 2) 2) | (random-partition (- size 2) 2) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |