60 |
repeat 10000 |
repeat 10000 |
61 |
unless (and (eql (length vals) 2) |
unless (and (eql (length vals) 2) |
62 |
(integerp q) |
(integerp q) |
63 |
|
(rationalp r) |
64 |
(= n n2) |
(= n n2) |
65 |
(<= 0 r) |
(<= 0 r) |
66 |
(< r 1) |
(< r 1) |
80 |
repeat 10000 |
repeat 10000 |
81 |
unless (and (eql (length vals) 2) |
unless (and (eql (length vals) 2) |
82 |
(integerp q) |
(integerp q) |
83 |
|
(rationalp r) |
84 |
(>= 0 r) |
(>= 0 r) |
85 |
(> r d) |
(> r d) |
86 |
(= n n2)) |
(= n n2)) |
99 |
repeat 10000 |
repeat 10000 |
100 |
unless (and (eql (length vals) 2) |
unless (and (eql (length vals) 2) |
101 |
(integerp q) |
(integerp q) |
102 |
|
(rationalp r) |
103 |
(>= 0 r) |
(>= 0 r) |
104 |
(> r d) |
(> r d) |
105 |
(= n n2)) |
(= n n2)) |
106 |
collect (list n q d r n2))) |
collect (list n q d r n2))) |
107 |
|
|
108 |
|
;;; Need float tests |