bunch of exercise solutions from sections 2.3, 2.4 and 2.5

[sicp.git] / src / sicp / ex2_62.rkt

diff --git a/src/sicp/ex2_62.rkt b/src/sicp/ex2_62.rkt
index 47fb870585679269d682cd795f6333499bec3408..e10c3c4248b9bafe49ce6ea1e173c197bb97bd7b 100644 (file)
--- a/src/sicp/ex2_62.rkt
+++ b/src/sicp/ex2_62.rkt
@@ -5,4 +5,6 @@
         ((null? set2) set1)
         ((= (car set1) (car set2)) (cons (car set1) (union-set (cdr set1) (cdr set2))))
         ((< (car set1) (car set2)) (cons (car set1) (union-set (cdr set1) set2)))
-        ((> (car set1) (car set2)) (cons (car set2) (union-set set1 (cdr set2))))))
\ No newline at end of file
+        ((> (car set1) (car set2)) (cons (car set2) (union-set set1 (cdr set2))))))
+
+(provide union-set)
\ No newline at end of file