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

Compare commits

base: ajet:f70ba6d543b6126df48e7f9896dfef8e222e59a6
Branches Tags
ajet:master
...
compare: ajet:9e57a7dffb6508ea5237c7d9e43f42cf2ced07c0
Branches Tags
ajet:master

2 Commits
f70ba6d543 ... 9e57a7dffb

Author SHA1 Message Date
ajet
9e57a7dffb golf 2025-12-08 15:08:59 -10:00
ajet
4e5cba07bf golf 2025-12-08 15:07:48 -10:00
1 changed files with 1 additions and 5 deletions
Show Stats Expand all files Collapse all files

6
2025/src/day08.clj
View File

@ -5,7 +5,6 @@
(mapv (comp (partial mapv parse-long) (mapv (comp (partial mapv parse-long)
(partial re-seq #"\d+"))))) (partial re-seq #"\d+")))))
(def initial-circuits (into #{} (map hash-set input))) (def initial-circuits (into #{} (map hash-set input)))
(defn square [x] (* x x)) (defn square [x] (* x x))
(defn dist-squared [[ax ay az] [bx by bz]] (defn dist-squared [[ax ay az] [bx by bz]]
(+ (square (- ax bx)) (+ (square (- ax bx))
@ -27,10 +26,7 @@
(if (= circuit-a circuit-b) (if (= circuit-a circuit-b)
circuits circuits
(let [combined (clojure.set/union circuit-a circuit-b)] (let [combined (clojure.set/union circuit-a circuit-b)]
(-> circuits (-> circuits (disj circuit-a) (disj circuit-b) (conj combined))))))
(disj circuit-a)
(disj circuit-b)
(conj combined))))))
initial-circuits) initial-circuits)
(sort-by count) (sort-by count)
(take-last 3) (take-last 3)