   [& args]
   (let [filename (if args (first args) "input")]
     (let [contents (clojure.string/trim (slurp filename))]
-      (println (validPassphrases contents)))))
+      (println (validPassphrases contents passphrase?))
+      (println (validPassphrases contents anagramPassphrase?)))))

  (let [splitPassphrase (seq (splitWhitespace passphrase))]
    (= splitPassphrase (distinct splitPassphrase))))

(defn trueToNum
  "Translates true to 1 and false to 0."
  [maybeTrue]


(defn validPassphrases
  "Returns how many passphrases of sequence are valid."
  [sequence checkfn]
  (->> sequence
       (clojure.string/split-lines)
       (map clojure.string/trim)
       (map checkfn)
       (map trueToNum)
       (reduce +)))

