Documentation

input :: [String] #

data Orientation #

turnL :: Orientation -> Orientation #

turnR :: Orientation -> Orientation #

walk :: Num a => Orientation -> a -> (a, a) -> (a, a) #

expand :: Enum a => Orientation -> (a, a) -> (a, a) -> [(a, a)] #

loop :: (Num a, Read a) => (Orientation, (a, a)) -> String -> (Orientation, (a, a)) #

main :: IO () #