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)))