diff options
| -rw-r--r-- | build.xml | 1 | ||||
| -rw-r--r-- | src/clojure/contrib/set.clj | 4 |
2 files changed, 5 insertions, 0 deletions
@@ -82,6 +82,7 @@ <arg value="clojure.contrib.repl-ln"/> <arg value="clojure.contrib.repl-utils"/> <arg value="clojure.contrib.seq-utils"/> + <arg value="clojure.contrib.set"/> <arg value="clojure.contrib.server-socket"/> <arg value="clojure.contrib.sql.internal"/> <arg value="clojure.contrib.sql"/> 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))) |