extra/benchmark/fib5/fib5.factor

   1 USING: math kernel namespaces ;
   2 IN: benchmark.fib5
   3
   4 SYMBOL: n
   5 : namespace-fib ( m -- n )
   6     [
   7         n set
   8         n get 1 <= [
   9             1
  10         ] [
  11             n get 1 - namespace-fib
  12             n get 2 - namespace-fib
  13             +
  14         ] if
  15     ] with-scope ;
  16
  17 : fib5-benchmark ( -- ) 30 namespace-fib 1346269 assert= ;
  18
  19 MAIN: fib5-benchmark