projects
/
advent-of-code-23.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Tidying, mainly parsers
[advent-of-code-23.git]
/
advent07
/
MainWithCase.hs
diff --git
a/advent07/MainWithCase.hs
b/advent07/MainWithCase.hs
index e5a181fd6217a43804e9233f71cdd6eb1c99d7fe..bd0aa85906dab170f5235500673f0ca25d3786f7 100644
(file)
--- a/
advent07/MainWithCase.hs
+++ b/
advent07/MainWithCase.hs
@@
-71,7
+71,7
@@
handP :: Parser Hand
cardP :: Parser Card
handsP = handP `sepBy` endOfLine
cardP :: Parser Card
handsP = handP `sepBy` endOfLine
-handP = Hand <$>
((many1 cardP) <* space)
<*> decimal
+handP = Hand <$>
many1 cardP <* space
<*> decimal
cardP = (Two <$ "2") <|> (Three <$ "3") <|> (Four <$ "4") <|>
(Five <$ "5") <|> (Six <$ "6") <|> (Seven <$ "7") <|>
cardP = (Two <$ "2") <|> (Three <$ "3") <|> (Four <$ "4") <|>
(Five <$ "5") <|> (Six <$ "6") <|> (Seven <$ "7") <|>