FFPiH/uebung2017_3
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixes tests, adds a more adequate komplizierteFunktion to A3

Browse Source
This commit is contained in:
BergesJ
2017-05-09 00:28:48 +02:00
parent ab40846aae
commit 5c0c93b38c
8 changed files with 31 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/Aufgabe4.hs
View File

@@ -43,25 +43,16 @@ data Landname = Frankreich
data Land = Land Landname [Landname]
deriving (Show,Eq)
defaultMap = [ Land Frankreich [Spanien, Italien, Schweiz, Deutschland, Luxemburg]
defaultMap = [ Land Frankreich [Schweiz, Deutschland, Luxemburg]
, Land Deutschland [Frankreich, Schweiz, Oesterreich, Luxemburg, Polen, Niederlande, Belgien, Tschechien]
, Land Niederlande [Deutschland, Belgien]
, Land Grossbritannien [Irland]
, Land Belgien [Frankreich, Deutschland, Luxemburg]
, Land Polen [Slowakei, Tschechien, Deutschland]
, Land Oesterreich [Italien, Schweiz, Deutschland, Slowakei, Liechtenstein, Slowenien, Ungarn, Tschechien]
, Land Ungarn [Oesterreich, Slowenien, Slowakei,Deutschland ]
, Land Island [Schweiz]
, Land Schweiz [Frankreich, Italien, Oesterreich, Deutschland]
, Land Polen [Tschechien, Deutschland]
, Land Oesterreich [Schweiz, Deutschland, Tschechien]
, Land Schweiz [Frankreich, Oesterreich, Deutschland]
, Land Island []
, Land Luxemburg [Frankreich, Deutschland]
, Land Irland [Grossbritannien]
, Land Italien [Frankreich, Schweiz, Oesterreich, Slowenien ]
, Land Portugal [Spanien]
, Land Spanien [Frankreich, Spanien]
, Land Slowenien [Italien, Oesterreich, Ungarn ]
, Land Liechtenstein [Schweiz, Oesterreich]
, Land Slowakei [Oesterreich, Ungarn, Tschechien]
, Land Tschechien [Oesterreich, Slowakei, Polen, Deutschland ]
, Land Tschechien [Oesterreich, Polen, Deutschland ]
]
-- Schreiben Sie eine Funktion `gültig :: (Farbe,Land) -> [(Farbe, Land)] -> Bool`,