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

edits A4 lhs md

This commit is contained in:
BergesJ 2017-05-09 13:08:35 +02:00
parent 5c0c93b38c
commit 3852ec1b56
2 changed files with 12 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/Aufgabe4.lhs
View File

@ -43,25 +43,16 @@ dass nur die eine nötige Lösung berechnet wird.
> 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`,

22
src/Aufgabe4.md
View File

@ -43,26 +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 ]
]
```