Solution to Advent of Code year 2022, day 1.

day_01.clj

(ns advent-of-code-year-2022.day-01
  "Advent of Code - Solution to year 2022, day 1."
  (:require
    [clojure.string :as str]))

(def sample-input
  "1000
2000
3000

4000

5000
6000

7000
8000
9000

10000")

(def input (slurp "./input/year_2022/day_01.txt"))

(defn parse-input [s]
  (->>
    (str/split s #"\n\n")
    (map #(->> (str/split % #"\n") (map parse-long) (reduce +)))))

(defn part-1 [input]
  (->> (parse-input input) (sort >) first))

(defn part-2 [input]
  (->> (parse-input input) (sort >) (take 3) (reduce +)))

(part-1 input)
(part-2 input)