23 lines
389 B
Factor
23 lines
389 B
Factor
USING: accessors math kernel debugger ;
|
|
IN: benchmark.fib4
|
|
|
|
TUPLE: box i ;
|
|
|
|
C: <box> box
|
|
|
|
: tuple-fib ( m -- n )
|
|
dup i>> 1 <= [
|
|
drop 1 <box>
|
|
] [
|
|
i>> 1- <box>
|
|
dup tuple-fib
|
|
swap
|
|
i>> 1- <box>
|
|
tuple-fib
|
|
swap i>> swap i>> + <box>
|
|
] if ;
|
|
|
|
: fib-main ( -- ) T{ box f 34 } tuple-fib T{ box f 9227465 } assert= ;
|
|
|
|
MAIN: fib-main
|