main.clj

(ns main (:require [day01.solution-01 :as d01]
                   [day02.solution-02 :as d02]
                   [day03.solution-03 :as d03]
                   [day04.solution-04 :as d04]
                   [day05.solution-05 :as d05]
                   [day06.solution-06 :as d06]
                   [day07.solution-07 :as d07]
                   [day08.solution-08 :as d08]
                   [day09.solution-09 :as d09]
                   [day10.solution-10 :as d10]
                   [day11.solution-11 :as d11]
                   [day12.solution-12 :as d12]
                   [day13.solution-13 :as d13]
                   [day14.solution-14 :as d14]
                   [day15.solution-15 :as d15]
                   ))

(def num-days 15)

(def dayFns
  {1 [d01/part-1 d01/part-2]
   2 [d02/part-1 d02/part-2]
   3 [d03/part-1 d03/part-2]
   4 [d04/part-1 d04/part-2]
   5 [d05/part-1 d05/part-2]
   6 [d06/part-1 d06/part-2]
   7 [d07/part-1 d07/part-2]
   8 [d08/part-1 d08/part-2]
   9 [d09/part-1 d09/part-2]
   10 [d10/part-1 d10/part-2]
   11 [d11/part-1 d11/part-2]
   12 [d12/part-1 d12/part-2]
   13 [d13/part-1 d13/part-2]
   14 [d14/part-1 d14/part-2]
   15 [d15/part-1 d15/part-2]})

(defn- read-input [day]
  (let [d (format "%02d" day)
        filename (str "day" d "/input_" d ".txt")]
    (slurp (clojure.java.io/resource filename))))

(defn- solve-day [day]
  (let [[part1 part2] (dayFns day)
        input (read-input day)]
    (println (str "\n-- Day " day " --"))
    (print "Part 1: ")
    (println (part1 input))
    (print "Part 2: ")
    (println (part2 input))))

(defn -main
  "Main function called from the command line."
  [& args]
  (dotimes [day num-days] (solve-day (inc day))))