diff options
Diffstat (limited to 'execs/Day02.hs')
| -rw-r--r-- | execs/Day02.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 | |||
| 37 | 37 | ||
| 38 | main :: IO () | 38 | main :: IO () |
| 39 | main = do | 39 | main = do |
| 40 | n <- map (doCheck2 . parseLine parseProp) . lines <$> readFile "input/02" | 40 | n <- map (parseLine parseProp) . lines <$> readFile "input/02" |
| 41 | print $ countElem True n | 41 | print $ countElem True (map doCheck1 n) |
| 42 | print $ countElem True (map doCheck2 n) | ||