Documentation

input :: [[(String, Danger)]] #

data Floor #

data Danger #

data State array element where #

parse :: ReadP [(String, Danger)] #

initialState :: IArray array Bool => [[(String, Danger)]] -> State array Int #

save :: (IArray array Bool, Ix element) => State array element -> ShortByteString #

moves :: (Enum depth, IArray array Bool, Ix element) => (State array element, depth) -> Set ShortByteString -> ([(State array element, depth)], Set ShortByteString) #

main :: IO () #