From: Clyne Sullivan <clyne@bitgloo.com>
Date: Thu, 23 Dec 2021 18:56:32 +0000 (-0500)
Subject: day23: track games in set, not vector
X-Git-Url: https://code.bitgloo.com/?a=commitdiff_plain;h=6dda086d5ccfd194d8fbb51b8d10461605e43c79;p=clyne%2Fadvent-of-code.git

day23: track games in set, not vector
---

diff --git a/day23/core.clj b/day23/core.clj
index d04a614..213ce5e 100644
--- a/day23/core.clj
+++ b/day23/core.clj
@@ -74,7 +74,7 @@
      nil]))
 
 (defn do-turns [fields]
-  (into []
+  (into #{}
     (r/fold
       r/cat
       #(if-let [t (apply do-slot %2)]
@@ -92,7 +92,7 @@
     (do
       (println "Splitting...")
       (doseq [p (partition 50000 turns)]
-        (play-games (into [] p) tc)))
+        (play-games (into #{} p) tc)))
     (do
       (let [new-turns (do-turns turns)
             winners (filter winner? new-turns)]
@@ -106,6 +106,6 @@
 (defn -main
   "I don't do a whole lot ... yet."
   [& args]
-  (play-games [[init-field 0]] 0)
+  (play-games #{[init-field 0]} 0)
   (println (first (sort @wins))))