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