factor/library/test/benchmark/fib.factor

IN: scratchpad
USE: compiler
USE: math
USE: stack
USE: test
USE: combinators

: 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`
some simple benchmarks 2004-08-23 23:27:55 -04:00			`USE: math`
some bignum work 2004-08-25 20:51:19 -04:00			`USE: stack`
some simple benchmarks 2004-08-23 23:27:55 -04:00			`USE: test`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00			`USE: combinators`

			`: 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`