SICP 1.37 答案

经过8次迭代就能达到精度的要求

递归版

(define (cont-frac n d k)
  (if (< k 0) 0
      (/ (n k) (+ (d k) (cont-frac n d (- k 1))))))

迭代版

(define (cont-frac n d k)
  (define (iter k result)
    (if (< k 0) result
        (iter (- k 1) (/ (n k) (+ (d k) result)))))
  (iter k 0))