small style fixes
This commit is contained in:
parent
d7756f3724
commit
6bb7ccb654
3 changed files with 3 additions and 3 deletions
|
@ -34,7 +34,7 @@ parseBP = do
|
|||
return $ BoardingPass { row=row, column=column }
|
||||
|
||||
parseBPs :: Parser [BoardingPass]
|
||||
parseBPs = some (parseBP) <* eof
|
||||
parseBPs = some parseBP <* eof
|
||||
|
||||
parseInput :: String -> IO [BoardingPass]
|
||||
parseInput filename = do
|
||||
|
|
|
@ -30,7 +30,7 @@ parseBP = do
|
|||
return $ row * 8 + column
|
||||
|
||||
parseBPs :: Parser [BoardingPass]
|
||||
parseBPs = some (parseBP) <* eof
|
||||
parseBPs = some parseBP <* eof
|
||||
|
||||
parseInput :: String -> IO [BoardingPass]
|
||||
parseInput filename = do
|
||||
|
|
|
@ -75,6 +75,6 @@ main = do
|
|||
when (exampleOutput /= exampleExpectedOutput) (die $ "example failed: got " ++ show exampleOutput ++ " instead of " ++ show exampleExpectedOutput)
|
||||
example2 <- parseInput "example2"
|
||||
let exampleOutput2 = compute example2
|
||||
when (exampleOutput2 /= exampleExpectedOutput2) (die $ "example2 failed: got " ++ show exampleOutput ++ " instead of " ++ show exampleExpectedOutput)
|
||||
when (exampleOutput2 /= exampleExpectedOutput2) (die $ "example2 failed: got " ++ show exampleOutput2 ++ " instead of " ++ show exampleExpectedOutput2)
|
||||
input <- parseInput "input"
|
||||
print $ compute input
|
||||
|
|
Loading…
Add table
Reference in a new issue