From 56c3fded1030f9a9ae536ce69adaefe95a4e6078 Mon Sep 17 00:00:00 2001
From: Quinten Kock <quintenkock@gmail.com>
Date: Tue, 21 Dec 2021 10:07:07 +0100
Subject: [PATCH] slightly clean up day21p2

---
 2021/day21p2.hs | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/2021/day21p2.hs b/2021/day21p2.hs
index 29b0955..1dc519b 100644
--- a/2021/day21p2.hs
+++ b/2021/day21p2.hs
@@ -26,16 +26,11 @@ put x = NdState $ const [((), x)]
 get :: NdState a a
 get = NdState (\s -> [(s,s)])
 
-putMany :: [a] -> NdState a ()
-putMany xs = NdState $ const $ map (\x -> ((), x)) xs
-
 returnMany :: [b] -> NdState a b
 returnMany xs = NdState (\s -> map (\x -> (x,s)) xs)
 
 data PlayerState = PS {score :: Integer, field :: Int} deriving Show
 data GameState = P1 PlayerState PlayerState | P2 PlayerState PlayerState deriving Show
--- type Game = State (GameState, DiceState)
-
 
 type Game = NdState GameState
 
@@ -85,7 +80,7 @@ move = do
         (_,_) -> Nothing
 
 runGame :: GameState -> (Integer, Integer)
-runGame gs = rgA ! (gsTuple gs) where
+runGame = runGame' where
     rgA = array ((False,0,1,0,1), (True,30,10,30,10))
         [let key = (p,s1,f1,s2,f2) in (key, runGame' $ tupleGs key) |
         p <- [False, True], s1 <- [0..30], s2 <- [0..30], f1 <- [1..10], f2 <- [1..10]]
@@ -108,6 +103,3 @@ main = do
     print (p1pos, p2pos)
 
     print $ part2 p1pos p2pos
-
-
-    print "Bye"