This commit is contained in:
Adam Jeniski 2025-12-08 15:08:59 -10:00
parent 4e5cba07bf
commit 9e57a7dffb

View File

@ -26,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)