From 000d745174d81eeb902d400a421402886e58e3aa Mon Sep 17 00:00:00 2001 From: shu Date: Mon, 9 Dec 2019 02:55:05 +0100 Subject: [PATCH] Day 8: Golf some more MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This is a terrible idea but let’s do it anyway Refer to previous commits for readable code --- 2019/day8/day8.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/2019/day8/day8.hs b/2019/day8/day8.hs index 21b37bf..1485d4e 100644 --- a/2019/day8/day8.hs +++ b/2019/day8/day8.hs @@ -6,12 +6,11 @@ import Data.Ord main = do content <- (chunksOf (25*6) <$> head) . lines <$> readFile "input" - print (day8a content) - putStrLn (day8b content) + putStrLn $ ((++) <$> (show . day8a) <*> day8b) content 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 +day8b xs = (:) '\n' $ unlines $ map (map (\case '0'->' ';'1'->'•')) $ chunksOf 25 img where img = map (head . filter (/='2')) $ transpose xs