aboutsummaryrefslogtreecommitdiff
path: root/src/clojure/contrib/set.clj
diff options
context:
space:
mode:
Diffstat (limited to 'src/clojure/contrib/set.clj')
-rw-r--r--src/clojure/contrib/set.clj4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/clojure/contrib/set.clj b/src/clojure/contrib/set.clj
index 2e8c76a4..67a46e82 100644
--- a/src/clojure/contrib/set.clj
+++ b/src/clojure/contrib/set.clj
@@ -18,23 +18,27 @@
(defn subset?
"Is set1 a subset of set2?"
[set1 set2]
+ {:tag Boolean}
(and (<= (count set1) (count set2))
(every? set2 set1)))
(defn superset?
"Is set1 a superset of set2?"
[set1 set2]
+ {:tag Boolean}
(and (>= (count set1) (count set2))
(every? set1 set2)))
(defn proper-subset?
"Is s1 a proper subset of s2?"
[set1 set2]
+ {:tag Boolean}
(and (< (count set1) (count set2))
(every? set2 set1)))
(defn proper-superset?
"Is s1 a proper superset of s2?"
[set1 set2]
+ {:tag Boolean}
(and (> (count set1) (count set2))
(every? set1 set2)))