fib ( x -- y )

Vocabulary

benchmark.fib6

Inputs

x

an object

Outputs

y

an object

Definition

USING: alien alien.c-types kernel math ;

IN: benchmark.fib6

: fib ( x -- y )
    int { int } cdecl
    [ dup 1 <= [ drop 1 ] [ 1 - dup fib swap 1 - fib + ] if ]
    alien-callback int { int } cdecl alien-indirect ;