1 IN: benchmark.recursive
2 USING: math kernel hints prettyprint io ;
5 dup 2 < [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;
14 dupd 1- ack >r 1- r> ack
20 [ rot 1- -rot tak ] 3keep
21 [ -rot 1- -rot tak ] 3keep
30 dup 27.0 + fib . flush
32 dup 3 * over 2 * rot tak . flush
34 3.0 2.0 1.0 tak . flush ;
36 : recursive-main 11 recursive ;