implemented Set operations on lists

2014-02-11 21:52:36 +09:00 · 2014-02-11 21:52:36 +09:00 · 47594a07e2
parent bdfaef4467
commit 47594a07e2
1 changed files with 7 additions and 0 deletions
--- a/piclib/srfi/1.scm
+++ b/piclib/srfi/1.scm
@ -765,6 +765,13 @@
    (values (apply lset-difference! = list lists)
 	    (lset-intersection! = list (apply lset-union! lists))))

+  (export lset<= lset= lset-adjoin
+	  lset-union lset-union!
+	  lset-intersection lset-intersection!
+	  lset-difference lset-difference!
+	  lset-xor lset-xor!
+	  lset-diff+intersection lset-diff+intersection!)
+
  ;; # Primitive side-effects
  ;; set-car! set-cdr!
  (export set-car! set-cdr!))