斐波那契数列的递归与迭代写法比较

递归写法:

(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)))

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