[hs] Clean up 2020_06
This commit is contained in:
parent
dddc5ec451
commit
81819a26c3
1 changed files with 1 additions and 1 deletions
|
|
@ -10,7 +10,7 @@ import Aoc.Parse
|
||||||
type Group = [String]
|
type Group = [String]
|
||||||
|
|
||||||
parser :: Parser [Group]
|
parser :: Parser [Group]
|
||||||
parser = sepBy (endBy1 (some lowerChar) newline) newline
|
parser = (some lowerChar `endBy1` newline) `sepBy` newline
|
||||||
|
|
||||||
solver :: [Group] -> IO ()
|
solver :: [Group] -> IO ()
|
||||||
solver groups = do
|
solver groups = do
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue