2007-09-20 18:09:08 -04:00
|
|
|
USING: math.private kernel debugger ;
|
|
|
|
|
IN: benchmark.fib1
|
|
|
|
|
|
|
|
|
|
: fast-fixnum-fib ( m -- n )
|
|
|
|
|
dup 1 fixnum<= [
|
|
|
|
|
drop 1
|
|
|
|
|
] [
|
|
|
|
|
1 fixnum-fast dup fast-fixnum-fib
|
|
|
|
|
swap 1 fixnum-fast fast-fixnum-fib fixnum+fast
|
|
|
|
|
] if ;
|
|
|
|
|
|
2008-06-09 03:14:14 -04:00
|
|
|
: fib-main ( -- ) 34 fast-fixnum-fib 9227465 assert= ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
MAIN: fib-main
|
