Garmelon/advent-of-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[hs] Clean up parsing a bit

Browse source
This commit is contained in:
Joscha 2020-12-16 19:15:52 +00:00
parent 155118b5f2
commit 098214e56e
4 changed files with 41 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

2
hs/src/Aoc/Y2020/D02.hs
View file

@ -19,7 +19,7 @@ parser = manyLines $ Line
<$> (decimal <* char '-')
<*> (decimal <* space)
<*> (anySingle <* char ':' <* space)
<*> untilEol
<*> line
validCount :: Line -> Bool
validCount l = n >= lMin l && n <= lMax l