golf
This commit is contained in:
parent
4e5cba07bf
commit
9e57a7dffb
@ -26,10 +26,7 @@
|
||||
(if (= circuit-a circuit-b)
|
||||
circuits
|
||||
(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)
|
||||
(sort-by count)
|
||||
(take-last 3)
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user