RosettaCodeData/Task/Fibonacci-sequence/TAV/fibonacci-sequence-2.tav

12 lines
272 B
Plaintext

\ Fibonacci numbers (recursive)
\+ stdlib
fibo (n):
? n < 2
:> n
:> (fibo n - 1) + fibo n - 2 \ not: fibo(n-1) + fibo(n-2) == fibo (n - 1 + fibo (n-2)
main (parms):+
lim =: string parms[1] as integer else 30
?# i =: from 1 upto lim
print i, fibo i