8 lines
131 B
Common Lisp
8 lines
131 B
Common Lisp
|
(defun fibonacci (n)
|
||
|
|
(let ((a 0) (b 1) (c n))
|
||
|
|
(loop for i from 2 to n do
|
||
|
|
(setq c (+ a b)
|
||
|
|
a b
|
||
|
|
b c))
|
||
|
|
c))
|