extra/benchmark/fib6/fib6.factor

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