From 476ace259344d4f79c96ae8241aa0f7ee8109772 Mon Sep 17 00:00:00 2001 From: Quinten Kock Date: Mon, 13 Dec 2021 07:03:39 +0100 Subject: [PATCH] remove more useless code --- 2021/day13.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/2021/day13.hs b/2021/day13.hs index 13959a7..91d01bd 100644 --- a/2021/day13.hs +++ b/2021/day13.hs @@ -31,9 +31,7 @@ main = do putStrLn "part 2: " let dots2 = map (\d -> foldl (flip fold) d folds) dots let dots2' = S.fromList dots2 - let min_x = minimum $ map fst dots2 let max_x = maximum $ map fst dots2 - let min_y = minimum $ map snd dots2 let max_y = maximum $ map snd dots2 mapM_ (\y -> do mapM_ (\x -> putChar (if (x,y) `S.member` dots2' then '#' else '.')) [0..max_x]