X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-20.git;a=blobdiff_plain;f=advent15%2Fsrc%2Fadvent15loop.hs;h=ca1d81104631fec09f47f55230f27769064b8aa8;hp=f023cf9e330717d0a39c066d82f5c952165f0412;hb=47e592658e720ad3f98bf023fe22b1350bf7d0d2;hpb=a3256d3ffbd05ca56a87b36402827144d1ce4906

diff --git a/advent15/src/advent15loop.hs b/advent15/src/advent15loop.hs
index f023cf9..ca1d811 100644
--- a/advent15/src/advent15loop.hs
+++ b/advent15/src/advent15loop.hs
@@ -25,10 +25,10 @@ runGame seed roundsNeeded =
        gameLoop roundsNeeded round word history
        readSTRef word
 
-gameLoop targetRound round word history =
-    do gameStep round word history 
-         `untilM_` ((== targetRound) <$> readSTRef round)
-       return ()
+-- gameLoop targetRound round word history =
+--     do gameStep round word history 
+--          `untilM_` ((== targetRound) <$> readSTRef round)
+--        return ()
 
 -- gameLoop targetRound round word history =
 --     do ( gameStep round word history 
@@ -55,10 +55,10 @@ gameLoop targetRound round word history =
 --                $ gameStep round word history
 --        return ()
 
--- gameLoop targetRound round word history =
---     do whileM_ ((/= targetRound) <$> readSTRef round)
---                $ gameStep round word history
---        return ()
+gameLoop targetRound round word history =
+    do whileM_ ((/= targetRound) <$> readSTRef round)
+               $ gameStep round word history
+       return ()
 
 seedGame seed historySize = 
   do round <- newSTRef $ length seed