mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
10 lines
144 B
Forth
10 lines
144 B
Forth
# example|RecursiveFibonacci
|
|
|
|
~~~
|
|
:fib (n-m)
|
|
dup
|
|
[ n:zero? ] [ #1 eq? ] bi or
|
|
not 0; drop
|
|
[ n:dec fib ] sip
|
|
[ #2 - fib ] call + ;
|
|
~~~
|