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