tuple-fib ( m -- n )

Vocabulary

benchmark.fib4

Inputs

m

an object

Outputs

n

an object

Definition

USING: accessors kernel math ;

IN: benchmark.fib4

: tuple-fib ( m -- n )
    dup i>> 1 <=
    [ drop 1 <box> ] [
        i>> 1 - <box> dup tuple-fib swap i>> 1 -
        <box> tuple-fib swap i>> swap i>> + <box>
    ] if ; inline recursive