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

(define (cont-frac n d k)
    (define (iter i acc)
      (let ((acc (/ (n i) (+ (d i) acc)))
            (i (- i 1)))
        (if (> i 0)
            (iter i acc)
            acc)))
    (iter k 0))