extra/benchmark/fib2/fib2.factor

   1 USING: math.private kernel ;
   2 IN: benchmark.fib2
   3
   4 : fixnum-fib ( m -- n )
   5     dup 1 fixnum<= [
   6         drop 1
   7     ] [
   8         1 fixnum- dup fixnum-fib swap 1 fixnum- fixnum-fib fixnum+
   9     ] if ;
  10
  11 : fib2-benchmark ( -- ) 34 fixnum-fib 9227465 assert= ;
  12
  13 MAIN: fib2-benchmark