12 lines
170 B
Text
12 lines
170 B
Text
def times {
|
|
if: over 0 =
|
|
[drop drop]
|
|
[swap over >r >r call r> 1 - r> times];
|
|
}
|
|
|
|
def fib {
|
|
0 1 dig [dup [+] dip swap] times drop
|
|
}
|
|
|
|
"50 fib => " type
|
|
50 fib .
|