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