usrnames.clj

(ns usrnames)

(require '[clojure.string :as str])

(def file (slurp "/usr/share/dict/words" :encoding "ASCII"))
(def words (str/split-lines file))

(defn remove-vowels [word]
  (->>
    word
    str/lower-case
    (filter #(not= %1 \a))
    (filter #(not= %1 \e))
    (filter #(not= %1 \i))
    (filter #(not= %1 \o))
    (filter #(not= %1 \u))
    str/join
  )
)

(->>
  words
  (map remove-vowels)
  (map vector words) ; zip with original
  (filter (fn [[_ usrname]] (= 5 (count usrname))))
  (group-by (fn [[_ usrname]] usrname))
  (map (fn [[usrname group]] (str usrname " (" (str/join ", " (map first group)) ")")))
  (str/join "\n")
  (spit "usrnames.txt")
)