7 lines
71 B
Text
7 lines
71 B
Text
|
define fib {
|
||
|
|
dup 1 <=
|
||
|
|
[]
|
||
|
|
[dup 1 - fib swap 2 - fib +]
|
||
|
|
if
|
||
|
|
}
|