Another update from ingydotnet^djgoku
This commit is contained in:
parent
91df62d461
commit
948b86eafa
7604 changed files with 108452 additions and 22726 deletions
|
|
@ -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))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue