递归写法:

(defun fib (n)

       (if (<= n 1)

           1

           (+ (fib (- n 1))

          (fib (- n 2)))))

 

迭代写法：

(defun fib (n)

       (do ((i n (- i 1))

        (f1 1 (+ f1 f2))

        (f2 1 f1))

           ((<= i 1) f1)))

 

显然，此处迭代法更有效率。