Another update from ingydotnet^djgoku

This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions

View file

@ -1,14 +1,16 @@
# (fib n) = the nth Fibonacci number
\fib=
(
(@\loop\x\y\n
le n 0 x;
\z=(+ x y)
\n=(- n 1)
loop y z n
)
0 1
\loop==
(\x\y\n
le n 0 x;
\z=(+ x y)
\n=(- n 1)
loop y z n
)
loop 0 1
)
# Now test it:
for 0 20 (\n say (fib n))