8 lines
168 B
Common Lisp
8 lines
168 B
Common Lisp
(defun fibonacci (x)
|
|
(defun fib (a b n)
|
|
(if (= n 2)
|
|
b
|
|
(fib b (+ a b) (- n 1)) ) )
|
|
(if (< x 2)
|
|
x
|
|
(fib 1 1 x) ) )
|