… forgot to remove a line

2021-12-12 01:15:18 +01:00 · 2021-12-12 01:15:18 +01:00 · 5ab4cd7856
commit 5ab4cd7856
parent 51a8583a97
1 changed files with 0 additions and 1 deletions
--- a/2021/day05/day05.hs
+++ b/2021/day05/day05.hs
@ -6,7 +6,6 @@ import Control.Monad
 main :: IO ()
 main = do
  input <-  map (map read . filter (/="->")) <$> map (splitOneOf ", ") <$> lines <$> readFile "input"
-  let part1inp = filterOrth input
  let process = length . M.filter (> 1) . M.fromListWith (+) . toMap
  print $ join (***) process $ (filterOrth input,input)