X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=src%2Fadvent09%2Fadvent09.hs;h=266971b5046e84dcafad635778e88c5b5b0a9696;hb=cf9be993787582089b71f86c25f9de2dbebf790c;hp=0cae08bfbeb57b9b7204eef6dbaebec8e938c718;hpb=d49d65f5215310b9271d959631df8c5c62a43f59;p=advent-of-code-18.git

diff --git a/src/advent09/advent09.hs b/src/advent09/advent09.hs
index 0cae08b..266971b 100644
--- a/src/advent09/advent09.hs
+++ b/src/advent09/advent09.hs
@@ -45,10 +45,6 @@ main = do
         print $ part1 numberOfPlayers numberOfMarbles
         print $ part1 numberOfPlayers (numberOfMarbles * 100)
 
-
-        -- putStrLn $ part1 schedule
-        -- print $ part2 schedule
-
 part1 players marbles = highScore $ playGame players marbles
 
 playGame :: Integer -> Integer -> Game
@@ -120,9 +116,6 @@ symb = L.symbol sc
 infixP = symb "players; last marble is worth"
 suffixP = symb "points"
 
-
--- linkP = pairify <$> prefixP <*> upperChar <* infixP <*> upperChar <* suffixP 
---     where pairify _ a b = (a, b)
 gameFileP = (,) <$> integer <* infixP <*> integer <* suffixP 
 
 successfulParse :: Text -> (Integer, Integer)