projects
/
advent-of-code-18.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
658b037
)
Removed some comments
author
Neil Smith
<neil.git@njae.me.uk>
Mon, 10 Dec 2018 14:43:13 +0000
(14:43 +0000)
committer
Neil Smith
<neil.git@njae.me.uk>
Mon, 10 Dec 2018 14:43:13 +0000
(14:43 +0000)
src/advent09/advent09.hs
patch
|
blob
|
history
diff --git
a/src/advent09/advent09.hs
b/src/advent09/advent09.hs
index 0cae08bfbeb57b9b7204eef6dbaebec8e938c718..266971b5046e84dcafad635778e88c5b5b0a9696 100644
(file)
--- 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)
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
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"
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)
gameFileP = (,) <$> integer <* infixP <*> integer <* suffixP
successfulParse :: Text -> (Integer, Integer)