RosettaCodeData/Task/Fibonacci-sequence/Cat/fibonacci-sequence.cat

7 lines
71 B
Plaintext

define fib {
dup 1 <=
[]
[dup 1 - fib swap 2 - fib +]
if
}