2022 Day 1 Clojure

2022/day1.clj

@@ -0,0 +1,7 @@
+(require '[clojure.string :as str])
+(def filename "day1-input")
+(def elves-rations (map #(map read-string %) (map str/split-lines (str/split (slurp filename) #"\n\n"))))
+(def elves-totals (map #(reduce + %) elves-rations))
+(def sorted-totals (sort elves-totals))
+(println (last sorted-totals))  ; Part 1
+(println (reduce + (take-last 3 sorted-totals)))  ; Part 2