tanakaBox https://blog.hatena.ne.jp/tanakaBox/ ボクノス https://boxnos.hatenablog.com/ Scheme ゼロ除算を検出せよという問題。簡単だったので、ちょっと工夫してみた。 0 * x = 0なので、乗算でのゼロを検出できる。 (define (div-interval x y) (if (= 0 (* (lower-bound y) (upper-bound y))) (error "div-interval : zero division error") (mul-interval x (make-interval (/ 1 (upper-bound y)) (/ 1 (lower-bound y)))))) こんなことも出来る。 (* 5 4 3 2 1 0) ; 0 ふふ。結構使えるかも… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20070801%2F1185971103" title=" SICPを読む(42) 問題 2.10 ゼロ除算の検出 - ボクノス" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2007-08-01 21:25:03 rich https://boxnos.hatenablog.com/entry/20070801/1185971103 1.0 100%