File tree Expand file tree Collapse file tree 1 file changed +4
-6
lines changed Expand file tree Collapse file tree 1 file changed +4
-6
lines changed Original file line number Diff line number Diff line change 2626 :default 7
2727 :parse-fn #(Integer/parseInt %)
2828 :validate [#(< 0 % 0x10000 ) " Must be a number between 0 and 65536" ]]
29- [" -h" " --help" ]
30- ])
31-
29+ [" -h" " --help" ]])
30+
3231(def fileName " words.txt" )
3332
3433(def url " https://raw.githubusercontent.com/jchristopherinc/xkcd-936/master/words.txt" )
4948 (let [randomWord (string/join \space (take 1 (secureShuffle words)))]
5049 (cond
5150 (and (>= (count randomWord) (:lte options)) (<= (count randomWord) (:gte options))) randomWord
52- :else (randomWordFromOptions words options)
53- )))
51+ :else (randomWordFromOptions words options))))
5452
5553(defn password [words options]
5654 (let [al (ArrayList. )]
5755 (loop [i 0 ]
5856 (when (< i (:count options))
5957 (.add al (randomWordFromOptions words options))
6058 (recur (inc i))))
61- (string/join (:delimiter options) al)))
59+ (string/join (:delimiter options) al)))
6260
6361(defn exit [status message]
6462 (println message)
You can’t perform that action at this time.
0 commit comments