mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Fibonacci-sequence/NewLISP/fibonacci-sequence-1.newlisp

6 lines
129 B
Plaintext
Raw Permalink Blame History

(define (fibonacci n)
(let (L '(0 1))
(dotimes (i n)
(setq L (list (L 1) (apply + L))))
(L 1)) )
Reference in New Issue View Git Blame Copy Permalink