mapTour :: [[Int]] -> [([Int], Float)]
  mapTour xs = [(k, v) | k <- xs, let v = tourLength coordinates k]
mapTour :: [[Int]] -> [([Int], Float)]
mapTour xs = [(k, v) | k <- xs, let v = tourLength coordinates k]
mapTour xs = [(k, v) | k <- xs, let v = tourLength coordinates k]