11 lines
272 B
Text
11 lines
272 B
Text
\ 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
|