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

Day 8: minimumBy and unlines are a thing

This commit is contained in:
shu 2019-12-08 07:25:22 +01:00
parent 8400b5d393
commit e598a06bc8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
2019/day8/day8.hs
View File

@ -1,6 +1,7 @@
{-# LANGUAGE LambdaCase #-}
import Data.List.Split
import Data.List
import Data.Ord
main = do
content <- chunksOf (25*6) <$> head <$> lines <$> readFile "input"
@ -11,7 +12,7 @@ count x = (length . filter (==x))
day8a xs = let l = toLayers xs in
(count '2' l) * (count '1' l)
where toLayers xs = snd $ minimum [(count '0' x, x) | x <- xs]
where toLayers xs = minimumBy (comparing (count '0')) xs
day8b xs = intercalate "\n" $ map (map (\case '0'->' ';'1'->'•')) $ chunksOf 25 img
day8b xs = unlines $ map (map (\case '0'->' ';'1'->'•')) $ chunksOf 25 img
where img = map (head . filter (/='2')) $ transpose xs