Wolfram Technology Guide: Combinatorial Optimization  previous | next 
Solve Traveling Salesman Problems
Mathematica has efficient algorithms for finding the shortest paths that visit a sequence of points.
In[1]:=

Click for copyable input
With[{p = RandomReal[10, {100, 2}]}, 

 Graphics[{Line[p[[Last[FindShortestTour[p]]]]], PointSize[Large], 

   Red, Point[p]}]]
Out[1]=