![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fib.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to fib.fs CVS log | Up to [gforth] / gforth |
| version 1.1, 1995/11/13 18:38:35 | version 1.2, 2006/01/18 12:56:12 |
|---|---|
| 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 |