Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Jan 17 22:34:46 2004 UTC | revision 1.3 by pfdietz, Sun Dec 5 13:55:14 2004 UTC | |
---|---|---|
# | Line 184 | Line 184 |
184 | nil) | nil) |
185 | ||
186 | (deftest sqrt.17 | (deftest sqrt.17 |
187 | (loop for i = (random-from-interval most-positive-fixnum 0) | (let ((b1 (find-largest-exactly-floatable-integer (* most-positive-fixnum most-positive-fixnum)))) |
188 | repeat 1000 | (loop for i = (random-from-interval (* b1 b1) 0) |
189 | unless (>= (sqrt i) (isqrt i)) | repeat 1000 |
190 | collect i) | unless (>= (sqrt i) (isqrt i)) |
191 | collect i)) | |
192 | nil) | nil) |
193 | ||
194 | (deftest sqrt.18 | (deftest sqrt.18 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |