SICP习题解答1.37

递归版本:
(define (cont-frac n d k)
  (define (compute m)
    (cond ((= m k) 0)
        (else (/ (n m) (+ (d m) (compute (+ m 1)))))))
  (compute 0))
 
迭代版本:
(define (cont-frac n d k)
  (define (cont-frac-iter final k)
    (cond ((< k 0) final)
          (else (cont-frac-iter (/ (n k) (+ (d k) final)) (- k 1)))))
  (cont-frac-iter 0 k))

转载于:https://www.cnblogs.com/science/archive/2007/01/04/611726.html