SICP 問題 2.8

(define (upper-bound x)
  (cdr x))

(define (lower-bound x)
  (car x))

(define (sub-interval x y)
  (make-interval (- (upper-bound x) (lower-bound y))
                 (- (upper-bound y) (lower-bound x))))