2015-02-20 00:35:01 -05:00
|
|
|
# (fib n) = the nth Fibonacci number
|
|
|
|
|
\fib=
|
2013-04-10 21:29:02 -07:00
|
|
|
(
|
2015-11-18 06:14:39 +00:00
|
|
|
\loop==
|
|
|
|
|
(\x\y\n
|
|
|
|
|
le n 0 x;
|
|
|
|
|
\z=(+ x y)
|
|
|
|
|
\n=(- n 1)
|
|
|
|
|
loop y z n
|
|
|
|
|
)
|
|
|
|
|
loop 0 1
|
2013-04-10 21:29:02 -07:00
|
|
|
)
|
|
|
|
|
|
2015-11-18 06:14:39 +00:00
|
|
|
|
2015-02-20 00:35:01 -05:00
|
|
|
# Now test it:
|
|
|
|
|
for 0 20 (\n say (fib n))
|
