Merge branch 'master' of git://factorcode.org/git/factor

[factor/jcg.git] / extra / benchmark / fib1 / fib1.factor

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 ;

: fib-main ( -- ) 34 fast-fixnum-fib 9227465 assert= ;

MAIN: fib-main