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

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

USING: math kernel debugger ;
IN: benchmark.fib3

: fib ( m -- n )
    dup 1 <= [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;

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

MAIN: fib-main