/[gcl]/gcl/ansi-tests/sqrt.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/sqrt.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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