From eb2ca945da02f64a88e271dae8303bd66387d0b5 Mon Sep 17 00:00:00 2001 From: ajet Date: Mon, 27 Oct 2025 09:57:26 -0900 Subject: [PATCH] day 17 parse input --- 2024/src/day17.clj | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 2024/src/day17.clj diff --git a/2024/src/day17.clj b/2024/src/day17.clj new file mode 100644 index 0000000..e7de3f6 --- /dev/null +++ b/2024/src/day17.clj @@ -0,0 +1,22 @@ +(ns day17 + (:require input-manager + [core :as c] + [clojure.string :as str])) + +(let [[registers _ [program]] + (->> (input-manager/get-input 2024 17) + (partition-by (partial = "")))] + (def registers (update-vals + (into {} + (map (comp vec + rest + first + (partial re-seq #"(\w)+: (.*)")) registers)) + parse-long)) + (def program (map parse-long + (-> program + (str/split #" ") + second + (str/split #","))))) + +[registers program]