Datentypen

data TSP a = TSP 
                { entfernungen :: Matrix a
                , schranke     :: Integer
                }

type Matrix a = FiniteMap (a,a) Integer