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

Compare commits

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

No commits in common. "9e57a7dffb6508ea5237c7d9e43f42cf2ced07c0" and "f70ba6d543b6126df48e7f9896dfef8e222e59a6" have entirely different histories.
9e57a7dffb ... f70ba6d543

1 changed files with 5 additions and 1 deletions
Show Stats Expand all files Collapse all files

6
2025/src/day08.clj
View File

@ -5,6 +5,7 @@
(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))
@ -26,7 +27,10 @@
(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 (disj circuit-a) (disj circuit-b) (conj combined)))))) (-> circuits
(disj circuit-a)
(disj circuit-b)
(conj combined))))))
initial-circuits) initial-circuits)
(sort-by count) (sort-by count)
(take-last 3) (take-last 3)