From 774e85068bc5d7320161a2a272a1420d669c4815 Mon Sep 17 00:00:00 2001 From: Adam Jeniski Date: Wed, 4 Dec 2024 23:58:46 -0500 Subject: [PATCH] golf --- 2024/src/day04.clj | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/2024/src/day04.clj b/2024/src/day04.clj index f6f2264..1be103a 100644 --- a/2024/src/day04.clj +++ b/2024/src/day04.clj @@ -9,8 +9,7 @@ (get (get input row) col)) ;; part 1 -(->> input - c/get-coords +(->> (c/get-coords input) (map (fn [[row col]] (->> (for [offset (range 4)] [[row (+ col offset)] @@ -28,8 +27,7 @@ (reduce +)) ;; part 2 -(->> input - c/get-coords +(->> (c/get-coords input) (filter #(= (get-char %) \A)) (filter (fn [[row col]] (->> [[[(dec row) (dec col)] [(inc row) (inc col)]]