Generate a random text collection

gistfile1.clj

(defn file2wordlist [wordlistfile]
  (-> (slurp wordlistfile)
      (str/triml)
      (str/split #"\s+")
      ((partial concat ["." ","]))))

(defn generate-random-text-coll
  "Generate a random text collection with nrtexts texts that are up to maxlength long.
Wordlist should be a file with one word per line."
  [wordlist nrtexts maxlength]
  (let [words (file2wordlist wordlist)
        lengths (range 1 maxlength)] ; we don't want 0 length texts
    (repeatedly nrtexts
                #(repeatedly (rand-nth lengths)
                             (fn []
                               (rand-nth words))))))