diff options
Diffstat (limited to 'src/clojure/contrib')
| -rw-r--r-- | src/clojure/contrib/seq_utils.clj | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/clojure/contrib/seq_utils.clj b/src/clojure/contrib/seq_utils.clj index 4a8e7c57..c5e0036f 100644 --- a/src/clojure/contrib/seq_utils.clj +++ b/src/clojure/contrib/seq_utils.clj @@ -68,3 +68,11 @@ (when-not (identical? s ends) (lazy-cons (first s) (this (rest s)))))] (lazy-cons (tw s) (partition-by f ends))))) + +(defn frequencies + "Returns a map from distinct items in coll to the number of times + they appear." + [coll] + (reduce (fn [counts x] + (assoc counts x (inc (get counts x 0)))) + {} coll)) |