Skip to content

Instantly share code, notes, and snippets.

@potix2

potix2/wordcount.clj

Created September 25, 2013 00:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save potix2/6693239 to your computer and use it in GitHub Desktop.
Save potix2/6693239 to your computer and use it in GitHub Desktop.
Download ZIP
Lisp Meet Up #9
Raw
wordcount.clj
(def test-data "'Updates' a value in a nested associative structure, where ks is a sequence of keys and f is a function that will take the old value ")
(->> (re-seq #"\w+" test-data)
(map #(.toLowerCase %))
(group-by identity)
(map (fn [[k v]] [k (count v)])))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment