path: root/day05.clj

(def data
  (->> (slurp "day05")
       (clojure.string/split-lines)
       (map (fn [x] (reduce #(+ (* 2 %1) %2)
                            (map {\F 0, \B 1, \L 0, \R 1} x))))))

(apply max data) ; => 818
(apply min (remove (set data) (map inc data))) ; => 559