start ch2

1 files changed, 14 insertions, 0 deletions

diff --git a/coding-exercises/2/8.rkt b/coding-exercises/2/8.rkt
new file mode 100644
index 0000000..1a205fd
--- /dev/null
+++ b/coding-exercises/2/8.rkt
@@ -0,0 +1,14 @@
+#lang racket
+(provide
+  sub-interval)
+(require "7.rkt")
+
+(define (sub-interval x y)
+  (make-interval (- (lower-bound x) (upper-bound y))
+                 (- (upper-bound x) (lower-bound y))))
+
+(define (print)
+  (define a (make-interval 1 2))
+  (define b (make-interval 0 2))
+  (print-interval (sub-interval a b)))
+(print)