Better Letterpress Solver

letterpress.clj

(ns letterpress-solver.core
  (:require [clojure.string :as string])
  (:require [multiset.core  :as ms]))

(def board-letters "srrbtsdofaghvypksbkkbegnv")

(def letterpress-wordlist (string/split-lines (slurp "resources/wordlist.txt")))

(defn -main [& args]
  (println "Began...")
  (let [ms-letters (apply ms/multiset letters)
        words (reduce (fn [found-words w]
                          (if (ms/subset? (apply ms/multiset w) ms-letters)
                            (conj found-words w)
                            found-words))
                        '()
                        letterpress-wordlist)]
      (println (sort-by count words))))