adyxax/advent-of-code
1
0
Fork 0
Code Issues Pull requests Activity

small style fixes

Browse source
This commit is contained in:
Julien Dessaux 2023-03-19 14:49:16 +01:00
parent d7756f3724
commit 6bb7ccb654
Signed by: adyxax
GPG key ID: F92E51B86E07177E
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
2020/05-Binary_Boarding/first.hs
View file

@ -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

2
2020/05-Binary_Boarding/second.hs
View file

@ -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

2
2020/07-Handy_Haversacks/second.hs
View file

@ -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