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 }
|
return $ BoardingPass { row=row, column=column }
|
||||||
|
|
||||||
parseBPs :: Parser [BoardingPass]
|
parseBPs :: Parser [BoardingPass]
|
||||||
parseBPs = some (parseBP) <* eof
|
parseBPs = some parseBP <* eof
|
||||||
|
|
||||||
parseInput :: String -> IO [BoardingPass]
|
parseInput :: String -> IO [BoardingPass]
|
||||||
parseInput filename = do
|
parseInput filename = do
|
||||||
|
|
|
@ -30,7 +30,7 @@ parseBP = do
|
||||||
return $ row * 8 + column
|
return $ row * 8 + column
|
||||||
|
|
||||||
parseBPs :: Parser [BoardingPass]
|
parseBPs :: Parser [BoardingPass]
|
||||||
parseBPs = some (parseBP) <* eof
|
parseBPs = some parseBP <* eof
|
||||||
|
|
||||||
parseInput :: String -> IO [BoardingPass]
|
parseInput :: String -> IO [BoardingPass]
|
||||||
parseInput filename = do
|
parseInput filename = do
|
||||||
|
|
|
@ -75,6 +75,6 @@ main = do
|
||||||
when (exampleOutput /= exampleExpectedOutput) (die $ "example failed: got " ++ show exampleOutput ++ " instead of " ++ show exampleExpectedOutput)
|
when (exampleOutput /= exampleExpectedOutput) (die $ "example failed: got " ++ show exampleOutput ++ " instead of " ++ show exampleExpectedOutput)
|
||||||
example2 <- parseInput "example2"
|
example2 <- parseInput "example2"
|
||||||
let exampleOutput2 = compute 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"
|
input <- parseInput "input"
|
||||||
print $ compute input
|
print $ compute input
|
||||||
|
|
Loading…
Add table
Reference in a new issue