5 lines
129 B
Text
5 lines
129 B
Text
(define (fibonacci n)
|
|
(let (L '(0 1))
|
|
(dotimes (i n)
|
|
(setq L (list (L 1) (apply + L))))
|
|
(L 1)) )
|