Return to fib.fs CVS log | Up to [gforth] / gforth |
documented S>NUMBER? S>UNUMBER? minor changes
\ 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 ) dup 2 < if drop 1 else dup 1- recurse swap 2 - recurse + then ; : main 34 fib drop ;