difference is to diff as assoc is to assq

JuliaLang · Jun 4, 2014 · 5bba56d · 5bba56d
1 parent 6cedc54
commit 5bba56d
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/utils.scm b/src/utils.scm
@@ -15,6 +15,11 @@
 	((memq (car s1) s2) (diff (cdr s1) s2))
 	(else               (cons (car s1) (diff (cdr s1) s2)))))
 
+(define (difference s1 s2)
+  (cond ((null? s1)           '())
+	((member (car s1) s2) (diff (cdr s1) s2))
+	(else                 (cons (car s1) (diff (cdr s1) s2)))))
+
 (define (unique lst) (delete-duplicates lst))
 
 (define (has-dups lst)