recursive ( n -- )

Vocabulary

benchmark.recursive

Inputs

n

an object

Outputs

None

Definition

USING: io kernel math prettyprint ;

IN: benchmark.recursive

: recursive ( n -- )
    [ 3 swap ack . flush ] [ 27.0 + fib . flush ]
    [ 1 - [ 3 * ] [ 2 * ] [ ] tri tak . flush ] tri 3 fib .
    flush 3.0 2.0 1.0 tak . flush ;