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

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

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

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

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