ajet/advent-of-code
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

golf

Browse Source
This commit is contained in:
Adam Jeniski 2025-12-08 15:06:57 -10:00
parent 4eae354f25
commit f70ba6d543
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
2025/src/day08.clj
View File

@ -20,8 +20,7 @@
(sort-by (partial apply dist-squared)))) (sort-by (partial apply dist-squared))))
;; part 1 ;; part 1
(->> closest-points (->> (take 1000 closest-points)
(take 1000)
(reduce (fn [circuits [a b]] (reduce (fn [circuits [a b]]
(let [circuit-a (first (filter #(% a) circuits)) (let [circuit-a (first (filter #(% a) circuits))
circuit-b (first (filter #(% b) circuits))] circuit-b (first (filter #(% b) circuits))]