sets.extras: few more words.

2013-04-24 07:58:50 -07:00 · 2013-04-24 07:58:50 -07:00 · f1b21b1827
parent 23b3bcc313
commit f1b21b1827
1 changed files with 6 additions and 0 deletions
--- a/extra/sets/extras/extras.factor
+++ b/extra/sets/extras/extras.factor
@ -11,3 +11,9 @@ IN: sets.extras

 : proper-subset? ( set1 set2 -- ? )
    2dup subset? [ swap subset? not ] [ 2drop f ] if ;
+
+: superset? ( set1 set2 -- ? )
+    swap subset? ;
+
+: disjoint? ( set1 set2 -- ? )
+    intersects? not ;