From 33549e923debfa5c586e2b27938ff9574c9de5bf Mon Sep 17 00:00:00 2001 From: Akshay Date: Sat, 5 Dec 2020 08:45:40 +0530 Subject: normalize outputs to print part 1 and 2 --- execs/Day02.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'execs') diff --git a/execs/Day02.hs b/execs/Day02.hs index b06b44d..a2815b7 100644 --- a/execs/Day02.hs +++ b/execs/Day02.hs @@ -37,5 +37,6 @@ parseLine parser line = right $ parse parser "input" line main :: IO () main = do - n <- map (doCheck2 . parseLine parseProp) . lines <$> readFile "input/02" - print $ countElem True n + n <- map (parseLine parseProp) . lines <$> readFile "input/02" + print $ countElem True (map doCheck1 n) + print $ countElem True (map doCheck2 n) -- cgit v1.2.3