AoC 2023 - Day 1

aoc2023_day1.clj

(ns maleghast.aoc2023.day1
  (:require [clojure.string :as str]
            [clojure.java.io :as io])
  (:gen-class))
​
(defn first-and-last
  [vec-of-nums-as-strings]
  (str (first vec-of-nums-as-strings) (last vec-of-nums-as-strings)))
​
(defn numbers-as-text-to-digits
  "Convert text expressions of numbers 1-9 into string digits"
  [input-string]
  (str/replace
   input-string
   #"oneight|threeight|fiveight|nineight|twone|eightwo|eighthree|sevenine|one|two|three|four|five|six|seven|eight|nine"
   {"oneight" "18"
    "threeeight" "38"
    "fiveight" "58"
    "nineight" "98"
    "twone" "21"
    "eightwo" "82"
    "eighthree" "83"
    "sevenine" "79"
    "one" "1"
    "two" "2"
    "three" "3"
    "four" "4"
    "five" "5"
    "six" "6"
    "seven" "7"
    "eight" "8"
    "nine" "9"}))
​
(defn get-coordinates-from-input-line
  "Get a vector of individual ints from a string of mixed letters and numbers"
  [input-string]
  (->> input-string
       (filter #(Character/isDigit %))
       (apply str)
       (#(str/split % #""))
       (first-and-last)
       (Integer/parseInt)))
​
(defn get-coordinates-from-input-line-improved
  "Get a vector of individual ints from a string of mixed letters and numbers"
  [input-string]
  (->> input-string
       (numbers-as-text-to-digits)
       (filter #(Character/isDigit %))
       (apply str)
       (#(str/split % #""))
       (first-and-last)
       (Integer/parseInt)))
​
(defn puzzle-1
  "Callable entry point to the application."
  [data-file]
  (let [datastring (slurp (io/resource data-file))
        prepared-data (str/split-lines datastring)]
    (->> prepared-data
         (map get-coordinates-from-input-line)
         (reduce +))
  )
)
​
(defn puzzle-2
  "Callable entry point to the application."
  [data-file]
  (let [datastring (slurp (io/resource data-file))
        prepared-data (str/split-lines datastring)]
    (->> prepared-data
         (map get-coordinates-from-input-line-improved)
         (reduce +))
    )
)
​
(defn -main
  [& args]
  (let [soln1 (puzzle-1 "input.txt")
        soln2 (puzzle-2 "input.txt")]
    (println soln1)
    (println soln2)))