fib ( m -- n )

Vocabulary

benchmark.fib3

Inputs

m

an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: benchmark.fib3

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