9 lines
228 B
Haskell
9 lines
228 B
Haskell
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
|