sicp 2.8 Рассуждая в духе Лизы, опишите, как можно вычислить разность двух интервалов. Напишите соответствующую процедуру вычитания, называемую sub-interval.

sicp_2_8

(define (make-interval a b) (cons a b))

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

(define (sub-interval a b)
  (make-interval 
     (- (upper-bound a) (lower-bound b)) 
     (- (lower-bound a) (upper-bound b))
   )
  )

;(make-interval 4 5)
(sub-interval (make-interval 4 5) (make-interval 1 2))