SICP习题1.38解答

(define (cont-frac n d k)
  (define (compute m)
    (cond ((= m k) 0)
        (else (/ (n m) (+ (d m) (compute (+ m 1)))))))
  (compute 0))
(define (f i)
  (define (g k)
    (+ 1 (* k 3)))
  (define (h m)
    (cond ((> (g m) i) false)
          ((= (g m) i) true)
          (else (h (+ m 1)))))
  (cond ((h 0)
         (* (/ (+ 2 i) 3) 2))
         (else 1)))