7 lines
96 B
Text
7 lines
96 B
Text
# example|IterativeFibonacci
|
|
|
|
~~~
|
|
:fib (n-m)
|
|
[ #0 #1 ] dip
|
|
[ over + swap ] times drop ;
|
|
~~~
|