clojure - 如何在Clojure中生成固定长度的随 secret 码？

Question

有没有一种快速的方法来生成固定长度的随 secret 码？ (例如8位数字，字母/数字/下划线)

Answer 1

user> (defn fixed-length-password
        ([] (fixed-length-password 8))
        ([n]
           (let [chars (map char (range 33 127))
                 password (take n (repeatedly #(rand-nth chars)))]
             (reduce str password))))      
#'user/fixed-length-password
user> (fixed-length-password 10)
;=> "N&L[yyLUI4"
user> (fixed-length-password 10)
;-> "8JSF-:?si."
user> (fixed-length-password 10)
;=> "EbKS~?*J*h"