8 lines
168 B
Text
8 lines
168 B
Text
(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) ) )
|