Fibonacci函数定义如下:  (define (fib n)
(cond ((= n 0) 0)
((= n 1) 1)
(else (+ (fib (- n 1))
(fib (- n 2))))))
递归数如下:
Fib( n)非常接近  n/  5 同样下面的式子也成立:  同样使用线性迭代效率要高的多: (define (fib n)
(fib-iter 1 0 n))
(define (fib-iter a b count)
(if (= count 0)
b
(fib-iter (+ a b) a (- count 1))))
|