Algoritmo "Caixeiro Viajante" em Haskell