[hs] Make cli fancier

This commit is contained in:
Joscha 2020-12-06 11:06:51 +00:00
parent 75fa851ff5
commit 55bc09948b
9 changed files with 56 additions and 36 deletions

View file

@ -22,4 +22,4 @@ solver groups = do
print $ sum $ map (Set.size . foldr1 Set.intersection . map Set.fromList) groups
day :: Day
day = dayParse "2020_06" parser solver
day = dayParse parser solver