2008-05-11から1日間の記事一覧
1.39 (define (pow x y) (cond ((= y 0) 1) ((= y 1) x) (else (* x (pow x (- y 1)))))) (define (cont-frac f n d k) (define (cont-frac-iter f n d k i) (if (= k i) (/ (n i) (d i)) (/ (n i) (f (d i) (cont-frac-iter f n d k (+ i 1)))))) (cont-fra…