20 lines
346 B
Factor
20 lines
346 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
|