The Polar Game in Haskell, Day 4

from blog Praise, Curse, and Recurse, | ↗ original
OK, things are getting meaty: I've made some minor modifications to World: data World = World { wBoard :: Board, wPenguinPos :: Pos, wPenguinDir :: Dir, wHeartCount :: Int } deriving (Show) This extracts the sequence of tiles in front of the penguin, for various directions, from a nested list...