extra/benchmark/fib6/fib6.factor

   1 USING: math kernel alien alien.c-types ;
   2 IN: benchmark.fib6
   3
   4 : fib ( x -- y )
   5     int { int } cdecl [
   6         dup 1 <= [ drop 1 ] [
   7             1 - dup fib swap 1 - fib +
   8         ] if
   9     ] alien-callback
  10     int { int } cdecl alien-indirect ;
  11
  12 : fib6-benchmark ( -- ) 32 fib drop ;
  13
  14 MAIN: fib6-benchmark