|
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 ;
|
|
|
|
: fib5-benchmark ( -- ) 30 namespace-fib 1346269 assert= ;
|
|
|
|
MAIN: fib5-benchmark
|