Travelling Salesman Problem solver in haskell