-- Writeup at https://work.njae.me.uk/2021/12/26/advent-of-code-2021-day-21/
-import Debug.Trace
+-- import Debug.Trace
import Data.Text ()
import qualified Data.Text.IO as TIO
-- Parsing
-playerP = ("1" *> pure Player1) <|> ("2" *> pure Player2)
+playerP = (Player1 <$ "1") <|> (Player2 <$ "2")
playerStateP = playerify <$> ("Player " *> playerP) <*> (" starting position: " *> decimal)
where playerify name pos = (name, PlayerState {position = pos, score = 0})