ゼロ除算を検出せよという問題。簡単だったので、ちょっと工夫してみた。 0 * x = 0なので、乗算でのゼロを検出できる。 (define (div-interval x y) (if (= 0 (* (lower-bound y) (upper-bound y))) (error "div-interval : zero division error") (mul-int…

むむ・・・。全然わからんので、素人くさいSICP「独」書会の解答を見た。 SICP memo: 問題2.9 素晴らしい。 要するに、「幅(区間a) + 幅(区間b)」と、「幅(区間a + 区間a)」が一緒かどうかって事か。 僕は具体例を示してみる。まずは、幅の定義する。幅 = (…