Skip to content

Instantly share code, notes, and snippets.

@clifton

clifton/exercism.clj

Created September 20, 2013 04:54
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 clifton/6633450 to your computer and use it in GitHub Desktop.
Save clifton/6633450 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
exercism.clj
(defn gen-name []
(let [letter-range (range (int \a) ((comp inc int) \z))
rand-letter #((comp char rand-nth) letter-range)
rand-number #((comp int rand) 1000)]
(format "%s%s%03d" (rand-letter) (rand-letter) (rand-number))))
(def robot #(atom (gen-name)))
(def robot-name #(deref %))
(def reset-name #(reset! % (gen-name)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment