Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Sat Jan 17 18:38:50 2004 UTC | revision 1.4 by pfdietz, Tue Sep 14 02:46:11 2004 UTC | |
---|---|---|
# | Line 70 | Line 70 |
70 | for n = (random-fixnum) | for n = (random-fixnum) |
71 | repeat 1000 | repeat 1000 |
72 | unless (eql (my-lcm (my-lcm i j) (my-lcm k n)) (lcm i j k n)) | unless (eql (my-lcm (my-lcm i j) (my-lcm k n)) (lcm i j k n)) |
73 | collect (list i j k)) | collect (list i j k n)) |
74 | nil) | nil) |
75 | ||
76 | (deftest lcm.8 | (deftest lcm.8 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |