From ab88f8ee42ab2934bed5eac5f4be9edc61be7cf8 Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Sat, 4 Aug 2018 21:53:04 +0000
Subject: Add  (net ricketyspace sicp two eight).

---
 net/ricketyspace/sicp/two/eight.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 net/ricketyspace/sicp/two/eight.scm

(limited to 'net/ricketyspace')

diff --git a/net/ricketyspace/sicp/two/eight.scm b/net/ricketyspace/sicp/two/eight.scm
new file mode 100644
index 0000000..7a7611e
--- /dev/null
+++ b/net/ricketyspace/sicp/two/eight.scm
@@ -0,0 +1,11 @@
+;;;; Under Creative Commons Attribution-ShareAlike 4.0
+;;;; International. See
+;;;; <https://creativecommons.org/licenses/by-sa/4.0/>.
+
+(define-module (net ricketyspace sicp two eight)
+  #:use-module (net ricketyspace sicp two seven)
+  #:export (sub-interval))
+
+(define (sub-interval x y)
+  (make-interval (- (lower-bound x) (lower-bound y))
+                 (- (upper-bound x) (upper-bound y))))
-- 
cgit v1.2.3