golf
This commit is contained in:
parent
4e5cba07bf
commit
9e57a7dffb
@ -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)
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user