zenon/sicp
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add exercise 2.8

Browse Source
This commit is contained in:
Tobias Eidelpes 2022-11-05 12:50:28 +01:00
parent 329d0d7098
commit d7bcd52fd0
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
chapter2.lisp
View File

@ -85,3 +85,8 @@
(make-interval (/ 1.0 (upper-bound b)) (make-interval (/ 1.0 (upper-bound b))
(/ 1.0 (lower-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))))