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

Add Exercise 2.10

Browse Source
This commit is contained in:
Tobias Eidelpes 2022-11-05 12:51:54 +01:00
parent 121cad7707
commit a14449600f
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
chapter2.lisp
View File

@ -97,3 +97,11 @@ and upper bound."
(/ (- (upper-bound x) (lower-bound x)) (/ (- (upper-bound x) (lower-bound x))
2.0)) 2.0))
;; Exercise 2.10
(defun div-interval (a b)
(if (zerop (width-interval b))
(error "Cannot divide by 0 width interval")
(mul-interval
a
(make-interval (/ 1.0 (upper-bound b))
(/ 1.0 (lower-bound b))))))