diff --git a/2022/day1.clj b/2022/day1.clj new file mode 100644 index 0000000..4b764d2 --- /dev/null +++ b/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 \ No newline at end of file