[gforth] / gforth / fib.fs  

gforth: gforth/fib.fs

Diff for /gforth/fib.fs between version 1.1 and 1.2

version 1.1, Mon Nov 13 18:38:35 1995 UTC version 1.2, Wed Jan 18 12:56:12 2006 UTC
Line 1 
Line 1 
   \ Note: This is incorrect ("n fib" produces the result for fib(n+1)),
   \ but we do not change it to ensure that future timing results are
   \ comparable to older timing results.
   
 : fib ( n1 -- n2 )  : fib ( n1 -- n2 )
     dup 2 < if      dup 2 < if
         drop 1          drop 1

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help