golf
This commit is contained in:
+1
-4
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user