From f5d047d9a4a5afdb12b4eb423e3ebac489495ab0 Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Mon, 10 Dec 2018 14:43:13 +0000 Subject: [PATCH] Removed some comments --- src/advent09/advent09.hs | 7 ------- 1 file changed, 7 deletions(-) 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) -- 2.34.1