blob: 7a7611e3b5d962c3ad558d3f995c4e5dbd9182ae (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
;;;; Under Creative Commons Attribution-ShareAlike 4.0
;;;; International. See
;;;; <https://creativecommons.org/licenses/by-sa/4.0/>.
(define-module (net ricketyspace sicp two eight)
#:use-module (net ricketyspace sicp two seven)
#:export (sub-interval))
(define (sub-interval x y)
(make-interval (- (lower-bound x) (lower-bound y))
(- (upper-bound x) (upper-bound y))))
|