2008-05-13から1日間の記事一覧
1.45 (define (pow x y) (define (pow-iter x y p) (if (<= y 0) p (pow-iter x (- y 1) (* p x)))) (pow-iter x y 1)) (define (avarage x y) (/ (+ x y) 2.0)) (define (fixed-point f first-guess) (define tolerance 0.0000000001) (define (close-enoug…