From: Neil Smith Date: Sun, 5 Dec 2021 13:01:13 +0000 (+0000) Subject: Tidying X-Git-Url: https://git.njae.me.uk/?a=commitdiff_plain;h=7fa1baa2215f19cac26102176968940a827b1da6;p=advent-of-code-21.git Tidying --- diff --git a/advent05/Main.hs b/advent05/Main.hs index 5669a53..0edc490 100644 --- a/advent05/Main.hs +++ b/advent05/Main.hs @@ -56,7 +56,6 @@ findDelta (Line (V2 x0 y0) (V2 x1 y1)) = (V2 dx dy) dy = signum (y1 - y0) addLines :: Grid -> [[Point]] -> Grid --- addLines diagram expandedLines = foldr insertLine diagram expandedLines addLines = foldr insertLine where insertPoint p d = M.insertWith (+) p 1 d insertLine l d = foldr insertPoint d l