9 lines
153 B
Text
9 lines
153 B
Text
def fib/aux {
|
|
if: dig dup 0 =
|
|
[drop drop]
|
|
[bury [swap 1 - swap] dip dup [+] dip swap fib/aux]
|
|
;
|
|
}
|
|
def fib { 0 1 fib/aux }
|
|
|
|
[ 50 fib ] call .
|