[hs] Clean up 2020 days

This commit is contained in:
Joscha 2020-12-03 11:51:19 +00:00
parent 23636d3fc0
commit c48319423d
3 changed files with 16 additions and 10 deletions

View file

@ -2,7 +2,7 @@ module Aoc.Y2020.D02
( day
) where
import qualified Data.Text as T
import qualified Data.Text as T
import Aoc.Day
import Aoc.Parse
@ -37,6 +37,7 @@ solver ls = do
putStrLn ">> Part 1"
print $ length $ filter validCount ls
putStrLn ""
putStrLn ">> Part 2"
print $ length $ filter validPositions ls