factor/extra/benchmark/fib5/fib5.factor

20 lines
353 B
Factor

USING: math kernel debugger namespaces ;
IN: benchmark.fib5
SYMBOL: n
: namespace-fib ( m -- n )
[
n set
n get 1 <= [
1
] [
n get 1 - namespace-fib
n get 2 - namespace-fib
+
] if
] with-scope ;
: fib-main ( -- ) 30 namespace-fib 1346269 assert= ;
MAIN: fib-main