day6.clj

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

(def example "abc\n\na\nb\nc\n\nab\nac\n\na\na\na\na\n\nb")

(defn part-1 [a]
  (->> (str/split a #"\n\n")
       (map #(str/replace % #"\n" ""))
       (map set)
       (map count)
       (reduce +)))

(part-1 (slurp "./inputs/day6.txt"))

(defn part-2 [a]
  (->> (str/split a #"\n\n")
       (map #(str/split % #"\n"))
       (map (fn [answers]
              (apply clojure.set/intersection (map set answers))))
       (map count)
       (reduce +)))

(part-2 (slurp "./inputs/day6.txt"))