fib ( m -- n )

Vocabulary

benchmark.recursive

Inputs

m

an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: benchmark.recursive

: fib ( m -- n )
    dup 2 < [ drop 1 ] [ [ 1 - fib ] [ 2 - fib ] bi + ] if ;
    inline recursive