Day 16

day16/Part1.hs

@@ -0,0 +1,8 @@
+module Part1 where
+
+import Commons
+import Data.Set (empty, map, toList, delete)
+
+
+getEnergized :: Cavern -> [(Int, Int)]
+getEnergized = toList . delete (1, 0) . Data.Set.map (\ (y, x, _) -> (y, x)) . lightBeam (1, 0) East empty