factor/extra/benchmark/fib5/fib5.factor

USING: math kernel debugger namespaces ;
IN: benchmark.fib5

SYMBOL: n
: namespace-fib ( m -- n )
    [
        n set
        n get 1 <= [
            1
        ] [
            n get 1 - namespace-fib
            n get 2 - namespace-fib
            +
        ] if
    ] with-scope ;

: fib-main ( -- ) 30 namespace-fib 1346269 assert= ;

MAIN: fib-main