(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-rec…

連分数の値を求めるcont-fracを定義します。 ただし、これは実際にはk項有限連分数を計算する。 (define (cont-frac n d k) (define (sub-cont-frac n d k ans) (if (= k 0) ans (sub-cont-frac n d (- k 1) (/ (n k) (+ (d k) ans))))) (sub-cont-frac n d …

幸せに生きたい だんごむしのようなぼくでも、人並みに幸せに生きたいとか思っていて、毎日希望に燃えています。とりあえず周りの人と笑っとけばしあわせな感じがするので、みんなが笑ってるとたいへんよろしい。だんごむしも、グローバルな視点だとたぶん地…