rewrite day 1 with franz

2024/src/day01.clj

@@ -1,26 +1,24 @@
 (ns day01
-  (:require
+  (:require input-manager))
-   [input-manager :refer [get-input]]
-   [core :as c]))
-
-(def input (->> (get-input 1)
-                (map #(first (c/get-match-groups #"(\d+)\s+(\d+)" %)))
-                (map #(mapv parse-long %))
-                (into {})
-                ((juxt keys vals))))
 
 ;; part 1
+(defn every-other [coll]
+  (take-nth 2 coll))
+
+(def input (->> (input-manager/get-input-raw 2024 1)
+                (re-seq #"\d+")
+                (map parse-long)
+                ((juxt every-other (comp every-other rest)))))
+
 (->> input
      (map sort)
-     (apply zipmap)
+     (apply map (comp abs -))
-     (map #(abs (apply - %)))
+     (apply +))
-     (reduce +))
 
 ;; part 2
-(let [[a b] input
+(let [[left-col right-col] input
-      freqs (frequencies b)]
+      freqs (frequencies right-col)]
-  (->> a
+  (->> left-col
        (map #(* (or (freqs %) 0) %))
        (reduce +)))
 
-