理系学生日記

おまえはいつまで学生気分なのか

問題1-37(b)

(a)のcont-fracは反復的プロセスなので、今度は再帰的プロセスをつかう。

(define (cont-frac-recur n d k)
  (define (cont-frac-recur-sub n d k i)
    (if (= k i)
	(/ (n i) (d i))
	(/ (n i) (+ (d i) (cont-frac-recur-sub n d k (+ i 1))))))
  (cont-frac-recur-sub n d k 1))