Add exercise 2.8

2022-11-05 12:50:28 +01:00 · 2022-11-05 12:50:28 +01:00 · d7bcd52fd0
commit d7bcd52fd0
parent 329d0d7098
1 changed files with 5 additions and 0 deletions
--- a/chapter2.lisp
+++ b/chapter2.lisp
@ -85,3 +85,8 @@
   (make-interval (/ 1.0 (upper-bound b))
 		  (/ 1.0 (lower-bound b)))))

+;; Exercise 2.8
+(defun sub-interval (a b)
+  (make-interval (- (lower-bound b) (lower-bound a))
+		 (- (upper-bound b) (upper-bound a))))
+