Generate alphanumeric random strings of fixed length (starting with one of the 26 letters of the alphabet and rest alnums)

randomslug.clj

(defn ->letters [s]
  (clojure.string/split s #""))

(def first-letter-alphabet
  (->letters "qwertyuiopasdfghjklzxcvbnm"))

(def alphabet
  (->letters "qwertyuiopasdfghjklzxcvbnm1234567890"))

(defn uid [n]
  (clojure.string/join "" (cons 
                            (rand-nth first-letter-alphabet) 
                            (take (dec n) (repeatedly #(rand-nth alphabet))))))

; generate 10 random strings each of length 6
(take 10 (repeatedly #(uid 6))