multirember

bitprophet · May 10, 2012 · 9e454ec · 9e454ec
1 parent 2f387b7
commit 9e454ec
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/little.rkt b/little.rkt
@@ -60,3 +60,10 @@
         ((or (eq? (car lat) old1) (eq? (car lat) old2))
          (cons new (cdr lat)))
         (else (cons (car lat) (subst2 new old1 old2 (cdr lat))))))))
+
+; remove all matching members
+(define (multirember a lat)
+  (cond
+    ((null? lat) '())
+    ((eq? (car lat) a) (multirember a (cdr lat)))
+    (else (cons (car lat) (multirember a (cdr lat))))))