Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
7 lines (7 sloc) 224 Bytes
(define (div-interval x y)
(if (< 0 (/ (upper-bound y) (lower-bound y)))
0
(mul-interval x
(make-interval
(/ 1.0 (upper-bound y))
(/ 1.0 (lower-bound y)))))