swannodette/str-to-int.clj

Created March 28, 2010 01:59

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

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

Download ZIP

Raw

str-to-int.clj

	(def m (ref {}))

	(defn str-to-int [m s]
	(or (@m s)
	(dosync
	(alter m assoc s (count @m))
	(@m s))))

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