ponzao/char-counter.clj

Created July 26, 2010 21:55

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/ponzao/491319.js"></script>
Save ponzao/491319 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

char-counter.clj

	(defn char-counter [str]
	(reduce
	(fn [m c]
	(assoc m c (inc (get m c 0))))
	{}
	str))

ponzao commented Jul 26, 2010

Author

It seems I rewrote a core-function (frequencies).

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment