extra/benchmark/fib3/fib3.factor

   1 USING: math kernel debugger ;
   2 IN: benchmark.fib3
   3
   4 : fib ( m -- n )
   5     dup 1 <= [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;
   6
   7 : fib-main ( -- ) 34 fib 9227465 assert= ;
   8
   9 MAIN: fib-main