makeset

bitprophet · May 16, 2012 · de941b8 · de941b8
1 parent 93c71e6
commit de941b8
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/little.rkt b/little.rkt
@@ -335,8 +335,15 @@
     (else (member? a (cdr lat)))))
 
 ; set test
-(define (set? lat)
+(define (myset? lat)
   (cond
     ((null? lat) #t)
     ((member? (car lat) (cdr lat)) #f)
     (else (myset? (cdr lat)))))
+
+; set enforcement
+(define (makeset lat)
+  (cond
+    ((null? lat) '())
+    ((member? (car lat) (cdr lat)) (makeset (cdr lat)))
+    (else (cons (car lat) (makeset (cdr lat))))))