fixed the wording
This commit is contained in:
parent
356ccc9ad2
commit
1a6d74520d
4
day4.hs
4
day4.hs
@ -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"]
|
||||||
|
4
day5.hs
4
day5.hs
@ -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 =
|
||||||
|
Loading…
Reference in New Issue
Block a user