Skip to content

Instantly share code, notes, and snippets.

@swannodette

swannodette/str-to-int.clj

Created March 28, 2010 01:59
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save swannodette/346500 to your computer and use it in GitHub Desktop.
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