Gattix/AoC
3
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

Day 8: For the memes

This commit is contained in:
shu 2019-12-08 22:00:27 +01:00
parent 0b720099a3
commit 99d4c67b7b
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
2019/day8/day8.hs
View File

@ -9,10 +9,9 @@ main = do
print (day8a content)
putStrLn (day8b content)
day8a xs = let l = toLayers xs in
count '2' l * count '1' l
where toLayers = minimumBy (comparing (count '0'))
count x = length . filter (==x)
day8a xs = (*) <$> count '2' <*> count '1'
$ minimumBy (comparing $ count '0') xs
where count x = length . filter (==x)
day8b xs = unlines $ map (map (\case '0'->' ';'1'->'•')) $ chunksOf 25 img
where img = map (head . filter (/='2')) $ transpose xs