day_01.clj

(ns aoc.2022.day-01
  (:require
   [clojure.string :as str]))

(def input
  (slurp "resources/2022/day_01.txt"))

(def data
  (->> input
       (str/split-lines)
       (map parse-long)
       (partition-by nil?)
       (remove #(nil? (first %)))
       (map (partial apply +))
       (sort >)))

(defn part-1 [data]
  (first data))

(defn part-2 [data]
  (->> data
       (take 3)
       (apply +)))

(comment
  (part-1 data) ;; 70116
  (part-2 data) ;; 206582
  ,)