Skip to content

Instantly share code, notes, and snippets.

@fdaoud
Created November 4, 2011 17:07
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 fdaoud/1339865 to your computer and use it in GitHub Desktop.
Save fdaoud/1339865 to your computer and use it in GitHub Desktop.
Clojure - generating a random password
(defn random-letter []
(-> (rand-int 26) (+ 97) char))
(defn random-digit []
(rand-int 10))
; for example, (generate-random-password "a1aa1a11") returns something like "z5qr9s42"
(defn generate-random-password [spec]
(-> #(if (= % \a) (random-letter) (random-digit)) (map spec) (apply str)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment