From 7fa1baa2215f19cac26102176968940a827b1da6 Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Sun, 5 Dec 2021 13:01:13 +0000 Subject: [PATCH] Tidying --- advent05/Main.hs | 1 - 1 file changed, 1 deletion(-) 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 -- 2.34.1