mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
848ba7303b
FossilOrigin-Name: b5feea667d30aac255d1cfca61fed355d438d2ce6021677f1e53af6302b15eee
7 lines
96 B
Text
7 lines
96 B
Text
# example|IterativeFibonacci
|
|
|
|
~~~
|
|
:fib (n-m)
|
|
[ #0 #1 ] dip
|
|
[ over + swap ] times drop ;
|
|
~~~
|