2007-09-20 18:09:08 -04:00
|
|
|
USING: math kernel debugger ;
|
|
|
|
|
IN: benchmark.fib3
|
|
|
|
|
|
|
|
|
|
: fib ( m -- n )
|
|
|
|
|
dup 1 <= [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;
|
|
|
|
|
|
2012-07-19 00:17:34 -04:00
|
|
|
: fib3-benchmark ( -- ) 34 fib 9227465 assert= ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2012-07-19 00:17:34 -04:00
|
|
|
MAIN: fib3-benchmark
|
