Skip to content
Snippets Groups Projects
Commit 3852ec1b authored by BergesJ's avatar BergesJ
Browse files

edits A4 lhs md

parent 5c0c93b3
No related branches found
No related tags found
No related merge requests found
...@@ -43,25 +43,16 @@ dass nur die eine nötige Lösung berechnet wird. ...@@ -43,25 +43,16 @@ dass nur die eine nötige Lösung berechnet wird.
> data Land = Land Landname [Landname] > data Land = Land Landname [Landname]
> deriving (Show,Eq) > 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 Deutschland [Frankreich, Schweiz, Oesterreich, Luxemburg, Polen, Niederlande, Belgien, Tschechien]
> , Land Niederlande [Deutschland, Belgien] > , Land Niederlande [Deutschland, Belgien]
> , Land Grossbritannien [Irland]
> , Land Belgien [Frankreich, Deutschland, Luxemburg] > , Land Belgien [Frankreich, Deutschland, Luxemburg]
> , Land Polen [Slowakei, Tschechien, Deutschland] > , Land Polen [Tschechien, Deutschland]
> , Land Oesterreich [Italien, Schweiz, Deutschland, Slowakei, Liechtenstein, Slowenien, Ungarn, Tschechien] > , Land Oesterreich [Schweiz, Deutschland, Tschechien]
> , Land Ungarn [Oesterreich, Slowenien, Slowakei,Deutschland ] > , Land Schweiz [Frankreich, Oesterreich, Deutschland]
> , Land Island [Schweiz] > , Land Island []
> , Land Schweiz [Frankreich, Italien, Oesterreich, Deutschland]
> , Land Luxemburg [Frankreich, Deutschland] > , Land Luxemburg [Frankreich, Deutschland]
> , Land Irland [Grossbritannien] > , Land Tschechien [Oesterreich, Polen, Deutschland ]
> , 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 ]
> ] > ]
Schreiben Sie eine Funktion `gültig :: (Farbe,Land) -> [(Farbe, Land)] -> Bool`, Schreiben Sie eine Funktion `gültig :: (Farbe,Land) -> [(Farbe, Land)] -> Bool`,
......
...@@ -43,26 +43,16 @@ data Landname = Frankreich ...@@ -43,26 +43,16 @@ data Landname = Frankreich
data Land = Land Landname [Landname] data Land = Land Landname [Landname]
deriving (Show,Eq) 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 Deutschland [Frankreich, Schweiz, Oesterreich, Luxemburg, Polen, Niederlande, Belgien, Tschechien]
, Land Niederlande [Deutschland, Belgien] , Land Niederlande [Deutschland, Belgien]
, Land Grossbritannien [Irland]
, Land Belgien [Frankreich, Deutschland, Luxemburg] , Land Belgien [Frankreich, Deutschland, Luxemburg]
, Land Polen [Slowakei, Tschechien, Deutschland] , Land Polen [Tschechien, Deutschland]
, Land Oesterreich [Italien, Schweiz, Deutschland, Slowakei, , Land Oesterreich [Schweiz, Deutschland, Tschechien]
Liechtenstein, Slowenien, Ungarn, Tschechien] , Land Schweiz [Frankreich, Oesterreich, Deutschland]
, Land Ungarn [Oesterreich, Slowenien, Slowakei,Deutschland ] , Land Island []
, Land Island [Schweiz]
, Land Schweiz [Frankreich, Italien, Oesterreich, Deutschland]
, Land Luxemburg [Frankreich, Deutschland] , Land Luxemburg [Frankreich, Deutschland]
, Land Irland [Grossbritannien] , Land Tschechien [Oesterreich, Polen, Deutschland ]
, 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 ]
] ]
``` ```
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment