aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions
RosettaCodeData/Task/Fibonacci-sequence/PicoLisp/fibonacci-sequence-4.l

5 lines
89 B
Text
Raw Permalink Normal View History

June 2018 Update
2018-06-22 20:57:24 +00:00
(de fib (N)
(let (A 0 B 1)
A-M baby
2013-04-10 21:29:02 -07:00
(do N
June 2018 Update
2018-06-22 20:57:24 +00:00
(prog1 B (setq B (+ A B) A @)) ) ) )
Reference in a new issue Copy permalink