{-
    Starting from:
      - the tour
      - the node
    Return if the node is in the path
-}
isVisited :: Path -> Node -> Bool
isVisited xs n = n `elem` xs
isVisited :: Path -> Node -> Bool
isVisited xs n = n `elem` xs
isVisited xs n = n `elem` xs