gistfile1.hs

data Coords = Coords { x :: Integer
			   , y :: Integer
			   } deriving (Show)

data Relation = Relation Coords Coords deriving (Show)

data Vertex = Vertex { top :: Bool
			   , right :: Bool
			   , bottom :: Bool
			   , left :: Bool
			} deriving (Show)

data Labirint = Labirint [[Vertex]] deriving (Show)

data Direction = Direction Bool Bool

getCurrentWay :: Coords -> Direction
getCurrentWay c | c.x > c.y = Direction False True
		    | c.x < c.y = Direction True False
	          | True = Direction True True

generate :: Integer -> Integer -> Labirint
generate a b = Labirint [[Vertex False False False False] | x <- [1..a], y <- [1..b]]

run :: Integer -> Integer -> Labirint
run a b = generate a b