2022 day01.clj

Author: quan-nh

project.clj

@@ -1,7 +1,7 @@
 (defproject adventofcode "0.1.0-SNAPSHOT"
   :description "FIXME: write description"
   :url "http://example.com/FIXME"
-  :dependencies [[org.clojure/clojure "1.10.1"]
+  :dependencies [[org.clojure/clojure "1.11.1"]
                  [org.clojure/math.combinatorics "0.1.4"]
                  [org.clojure/core.match "0.3.0-alpha4"]
                  [net.cgrand/xforms "0.18.2"]

src/aoc22/day01.clj

@@ -0,0 +1,15 @@
+(ns aoc22.day01
+  (:require [clojure.java.io :as io]
+            [clojure.string :as str]))
+
+(def input (slurp (io/resource "2022/day01")))
+
+(->> (str/split input #"\n\n")
+     (map str/split-lines)
+     (map #(map parse-long %))
+     (map #(apply + %))
+     (sort >)
+     (take 3)
+     ;(apply +)
+     )
+;=> (69795 69434 69208)

src/aoc22/day01.nim

@@ -14,5 +14,5 @@ for calo in readFile("../../resources/2022/day01").splitLines:
       t3 = total
     total = 0
 
-echo t1
-echo t1 + t2 + t3
+echo t1            # 69795
+echo t1 + t2 + t3  # 208437