home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / LF / N2.LF < prev    next >
Text File  |  1996-06-04  |  316b  |  17 lines
  1. % N2 test
  2.  
  3. sum(0,N) :- !, write("S=",N),nl.
  4. sum(M,N) :- N<<-N+M,sum(M-1,N).
  5.  
  6. time(X) :- X<3000, !,
  7.         S=cpu_time,
  8.         sum(X,0),
  9.         D=cpu_time-S,
  10.     gc,
  11.         write("X=",X),nl,
  12.         % write("D/X=",floor(10000*D/X)),nl,
  13.         % write("D/X2=",floor(1000000*D/X/X)),nl,
  14.         time(2*X).
  15.  
  16. time(100)?
  17.