fixed the wording

This commit is contained in:
Thorn Avery 2020-12-05 18:34:15 +13:00
parent 356ccc9ad2
commit 1a6d74520d
2 changed files with 4 additions and 4 deletions

View File

@ -13,8 +13,8 @@ main = do
ansA = length $ filter (== True) $ map solveA ls ansA = length $ filter (== True) $ map solveA ls
ansB = length $ filter (== True) $ map solveB ls ansB = length $ filter (== True) $ map solveB ls
in do in do
putStrLn $ "day3a: " ++ (show ansA) putStrLn $ "day4a: " ++ (show ansA)
putStrLn $ "day3b: " ++ (show ansB) putStrLn $ "day4b: " ++ (show ansB)
rtags :: [String] rtags :: [String]
rtags = ["byr", "iyr", "eyr", "hgt", "hcl", "ecl", "pid"] rtags = ["byr", "iyr", "eyr", "hgt", "hcl", "ecl", "pid"]

View File

@ -10,8 +10,8 @@ main = do
ansA = maximum ls ansA = maximum ls
ansB = findGap $ sort ls ansB = findGap $ sort ls
in do in do
putStrLn $ "day3a: " ++ (show ansA) putStrLn $ "day5a: " ++ (show ansA)
putStrLn $ "day3b: " ++ (show ansB) putStrLn $ "day5b: " ++ (show ansB)
validate :: String -> Bool validate :: String -> Bool
validate s = validate s =