diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/genpass/gen.cljc | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/src/genpass/gen.cljc b/src/genpass/gen.cljc index 103734d..12dbc2f 100644 --- a/src/genpass/gen.cljc +++ b/src/genpass/gen.cljc @@ -4,7 +4,7 @@ (def upper-case [\A \B \C \D \E \F \G \H \I \J \K \L \M \N \O \P \Q \R \S \T \U \V \W \X \Y \Z]) (def number [\0 \1 \2 \3 \4 \5 \6 \7 \8 \9]) (def special-char [\! \@ \# \% \^ \& \* \( \) \{ \} \[ \] \- \+ \= \~]) -(def all-char (into [] (concat low-case upper-case number special-char))) +(def all-char (concat low-case upper-case number special-char)) (defn rand-char [] (nth all-char (rand-int (dec (count all-char))))) @@ -12,9 +12,6 @@ (defn genpwd ([] (genpwd 12)) ([length] - (genpwd length "")) - ([length pwd] - (if (>= 0 length) - pwd - (recur (dec length) - (str pwd (rand-char))))))
\ No newline at end of file + (->> (range length) + (map (fn [_] (rand-char))) + (apply str))))
\ No newline at end of file |