14 lines
264 B
Factor
14 lines
264 B
Factor
|
USING: math.private kernel debugger ;
|
||
|
|
IN: benchmark.fib2
|
||
|
|
|
||
|
|
: fixnum-fib ( m -- n )
|
||
|
|
dup 1 fixnum<= [
|
||
|
|
drop 1
|
||
|
|
] [
|
||
|
|
1 fixnum- dup fixnum-fib swap 1 fixnum- fixnum-fib fixnum+
|
||
|
|
] if ;
|
||
|
|
|
||
|
|
: fib-main 34 fixnum-fib 9227465 assert= ;
|
||
|
|
|
||
|
|
MAIN: fib-main
|