fast-fixnum-fib ( m -- n )

Vocabulary

benchmark.fib1

Inputs

m

an object

Outputs

n

an object

Definition

USING: kernel math.private ;

IN: benchmark.fib1

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