Datentypen

data GTSP a =   GTSP 
                { punkte :: Punkte a
                , schranke :: Integer
                }
     deriving ( Read, Eq )

type Punkte a = FiniteMap a (Integer,Integer)