fixed typo

This commit is contained in:
thornAvery 2021-12-01 05:27:14 +00:00
parent b7d4066a81
commit 61456b6cc8

View file

@ -6,7 +6,7 @@ main = do
let ls = map read $ lines raw :: [Int] let ls = map read $ lines raw :: [Int]
in do in do
putStrLn $ "day1a: " ++ (show (solveA ls)) putStrLn $ "day1a: " ++ (show (solveA ls))
putStrLn $ "day1a: " ++ (show (solveB ls)) putStrLn $ "day1b: " ++ (show (solveB ls))
numIncreasing :: [Int] -> Int numIncreasing :: [Int] -> Int
numIncreasing [] = 0 numIncreasing [] = 0