File:  [gforth] / gforth / fib.fs
Revision 1.2: download - view: text, annotated - select for diffs
Wed Jan 18 12:56:12 2006 UTC (18 years, 2 months ago) by anton
Branches: MAIN
CVS tags: v0-7-0, HEAD
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 ;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>