From 47e592658e720ad3f98bf023fe22b1350bf7d0d2 Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
Date: Thu, 24 Dec 2020 16:49:09 +0000
Subject: [PATCH] More loop cleaning
---
advent15/src/advent15loop.hs | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
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
--
2.43.0