Return to fib.fs CVS log

Up to [gforth] / gforth

Annotation of gforth/fib.fs, revision 1.2

1.2     ! anton       1: \ Note: This is incorrect ("n fib" produces the result for fib(n+1)),
        !             2: \ but we do not change it to ensure that future timing results are
        !             3: \ comparable to older timing results.
        !             4: 
1.1       anton       5: : fib ( n1 -- n2 )
                      6:     dup 2 < if
                      7:        drop 1
                      8:     else
                      9:        dup
                     10:        1- recurse
                     11:        swap 2 - recurse
                     12:        +
                     13:     then ;
                     14: 
                     15: : main 34 fib drop ;