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

6 lines
129 B
Text
Raw Permalink Normal View History

Time for an 2014 update…
2014-01-17 05:32:22 +00:00
(define (fibonacci n)
Another update from ingydotnet^djgoku
2015-11-18 06:14:39 +00:00
(let (L '(0 1))
(dotimes (i n)
(setq L (list (L 1) (apply + L))))
(L 1)) )
Reference in a new issue Copy permalink