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