rename input

This commit is contained in:
Adam Jeniski 2023-12-01 19:55:14 -05:00
parent 4e7d3a5893
commit 6ac09bd75a

View File

@ -3,10 +3,10 @@
day01 (:require [core :refer [get-puzzle-input]] day01 (:require [core :refer [get-puzzle-input]]
[clojure.string :as string])) [clojure.string :as string]))
(def input (get-puzzle-input 1)) (def lines (get-puzzle-input 1))
;; part 1 ;; part 1
(->> input (->> lines
(map #(Integer/parseInt (map #(Integer/parseInt
(str (re-find #"\d" %) (str (re-find #"\d" %)
(re-find #"\d" (string/reverse %))))) (re-find #"\d" (string/reverse %)))))
@ -29,7 +29,7 @@
(def last-num-pattern (generate-regex-pattern string/reverse)) (def last-num-pattern (generate-regex-pattern string/reverse))
;; part 2 ;; part 2
(->> input (->> lines
(map #(Integer/parseInt (map #(Integer/parseInt
(str (numeric-value (re-find first-num-pattern %)) (str (numeric-value (re-find first-num-pattern %))
(numeric-value (string/reverse (numeric-value (string/reverse