day 1, part 1

deps.edn

@@ -0,0 +1,2 @@
+{:paths ["src" "inputs"]
+ :deps {org.clojure/clojure {:mvn/version "1.11.1"}}}

inputs/day01.test.1

@@ -0,0 +1,4 @@
+1abc2
+pqr3stu8vwx
+a1b2c3d4e5f
+treb7uchet

inputs/day01.test.2

@@ -0,0 +1,7 @@
+two1nine
+eightwothree
+abcone2threexyz
+xtwone3four
+4nineeightseven2
+zoneight234
+7pqrstsixteen

src/day01.clj

@@ -0,0 +1,49 @@
+(ns day01
+  (:require [clojure.string :as string]))
+
+(def input (-> "inputs/day01.test.1"
+               slurp
+               (string/split #"\n")))
+
+;; part one
+
+(defn is-digit? [c]
+  (<= (int \0) (int c) (int \9)))
+
+(defn calibration-value [s]
+  (let [digits (filter is-digit? s)]
+    (read-string (str (first digits)
+                      (last digits)))))
+
+(def sum-of-all-calibration-values
+  (reduce + (map calibration-value input)))
+
+;; part two
+
+(def input2 (-> "inputs/day01.test.2"
+               slurp
+               (string/split #"\n")))
+
+(def replace-digits
+  {"one" "1"
+   "two" "2"
+   "three" "3"
+   "four" "4"
+   "five" "5"
+   "six" "6"
+   "seven" "7"
+   "eight" "8"
+   "nine" "9"})
+
+(defn fix-line [l]
+  (let [replacements (->> (keys replace-digits)
+                          (mapcat (fn [d] {d (string/index-of l d)}))
+                          (filter (fn [[_ v]] (not (nil? v))))
+                          (sort-by second))
+        fix-fn (apply comp
+                      (map (fn [[r _]] (fn [s] (string/replace s r (replace-digits r))))
+                           replacements))]
+    (fix-fn l)))
+
+(def sum-of-actual-calibration-values
+  (reduce + (map (comp calibration-value fix-line) input2)))