diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-03-05 20:58:20 +0100 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-03-05 20:58:20 +0100 |
| commit | 592ef89cb282ab33d6b10cacae711a4a8e6b1212 (patch) | |
| tree | e945b18ad80cd466639ee2beee3de77da09f1144 /coding-exercises/2/10.rkt | |
| parent | ad461cbbbf839d040cda5d38f72072bbc20b5e4f (diff) | |
start ch2
Diffstat (limited to 'coding-exercises/2/10.rkt')
| -rw-r--r-- | coding-exercises/2/10.rkt | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/coding-exercises/2/10.rkt b/coding-exercises/2/10.rkt new file mode 100644 index 0000000..20c70b0 --- /dev/null +++ b/coding-exercises/2/10.rkt @@ -0,0 +1,14 @@ +#lang racket +(require + "7.rkt" + "8.rkt" + "9.rkt") + +(define (div-interval x y) + (if (and (< 0 (lower-bound y)) (> 0 (upper-bound y))) + (error "Division by interval spanning zero") + (mul-interval + x + (make-interval + (/ 1.0 (upper-bound y)) + (/ 1.0 (lower-bound y)))))) |