こんなかんじ？ (define (div-interval x y) (let ((l-div (/ 1.0 (upper-bound y))) (r-div (/ 1.0 (lower-bound y)))) (if (and (<= l-div 0) (=> r-div 0)) (error "invalid interval") (mul-interval x (make-interval l-div r-div))))) 今日朝いそいで…

朝ごはん食べた後、出かける前に一杯のコーヒーを飲むのが超オシャレな気がしたので今日から実行させていただきます。皆さんがパンをくわえて遅刻遅刻とか走りながら学校にいく途中に女の子と衝突するみたいな空想している間に、ぼくは一歩先に行くから！！…