remove math.blas.syntax and merge parsing words into math.blas.vectors/matrices

[factor/jcg.git] / extra / benchmark / fib2 / fib2.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