namespace-fib ( m -- n )

Vocabulary

benchmark.fib5

Inputs

m

an object

Outputs

n

an object

Definition

USING: kernel math namespaces ;

IN: benchmark.fib5

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