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]
/
advent04
/
Main.hs
diff --git
a/advent04/Main.hs
b/advent04/Main.hs
index 0d8b7735b6ce7a0bd7978b77edd47b8d46314b94..3448edc112681f02c4026fd75797aa153b6a3ddb 100644
(file)
--- a/
advent04/Main.hs
+++ b/
advent04/Main.hs
@@
-62,8
+62,9
@@
cardP :: Parser Card
numbersP :: Parser [Int]
cardsP = cardP `sepBy` endOfLine
numbersP :: Parser [Int]
cardsP = cardP `sepBy` endOfLine
-cardP = Card <$> (("Card" *> skipSpace *> decimal) <* ":" <* skipSpace)
- <*> (numbersP <* " |" <* skipSpace)
+cardP = Card <$ "Card" <* skipSpace
+ <*> decimal <* ":" <* skipSpace
+ <*> numbersP <* " |" <* skipSpace
<*> numbersP
numbersP = decimal `sepBy` skipSpace
<*> numbersP
numbersP = decimal `sepBy` skipSpace