fixnum-fib ( m -- n )

Vocabulary

benchmark.fib2

Inputs

m

an object

Outputs

n

an object

Definition

USING: kernel math.private ;

IN: benchmark.fib2

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