factor/library/test/benchmark/fib.factor

IN: scratchpad
USE: compiler
USE: kernel
USE: math
USE: test

: fib ( n -- nth fibonacci number )
    dup 1 <= [ drop 1 ] [ pred dup fib swap pred fib + ] ifte ;
    compiled

[ 9227465 ] [ 34 fib ] unit-test
some simple benchmarks 2004-08-23 23:27:55 -04:00			`IN: scratchpad`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00			`USE: compiler`
merged stack continuations combinators and logic vocabularies into kernel vocabulary 2004-12-10 19:29:07 -05:00			`USE: kernel`
some simple benchmarks 2004-08-23 23:27:55 -04:00			`USE: math`
			`USE: test`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00
			`: fib ( n -- nth fibonacci number )`
			`dup 1 <= [ drop 1 ] [ pred dup fib swap pred fib + ] ifte ;`
semi-working compiler 2004-12-05 23:00:52 -05:00			`compiled`
some simple benchmarks 2004-08-23 23:27:55 -04:00
various cleanups, better memory signal handler 2004-10-17 19:01:16 -04:00			`[ 9227465 ] [ 34 fib ] unit-test`