This commit is contained in:
Adam Jeniski 2024-12-05 01:37:41 -05:00
parent 79952a609f
commit d5e9f85dc8

View File

@ -30,10 +30,10 @@
(->> (c/get-coords input) (->> (c/get-coords input)
(filter #(= (get-char %) \A)) (filter #(= (get-char %) \A))
(filter (fn [[row col]] (filter (fn [[row col]]
(->> [[[(dec row) (dec col)] [(inc row) (inc col)]] (->> [[[(dec row) (dec col)] [(inc row) (inc col)]]
[[(inc row) (dec col)] [(dec row) (inc col)]]] [[(inc row) (dec col)] [(dec row) (inc col)]]]
(map (partial map get-char)) (map (partial map get-char))
(map set) (map set)
(apply = #{\M \S})))) (apply = #{\M \S}))))
count) count)