fixes tests, adds a more adequate komplizierteFunktion to A3

src/Aufgabe1.hs

@@ -97,7 +97,7 @@ getAdressM ds = do
   return (Adress name street pcode city)  
 
 getPublicM :: [Datum] -> Maybe Public  
-getPublicM ds = undefined
+getPublicM ds = getName ds >>= \name -> return (Public name (getAge ds) (getEmail ds))
 
 
 -- Implementieren Sie nun zwei Funktionen `getAdressA` und `getPublicDataA`, die das gleiche tun, 

src/Aufgabe1.lhs

@@ -97,7 +97,7 @@ zurück.
 >   return (Adress name street pcode city)  
 
 > getPublicM :: [Datum] -> Maybe Public  
-> getPublicM ds = undefined
+> getPublicM ds = getName ds >>= \name -> return (Public name (getAge ds) (getEmail ds))
 
 
 Implementieren Sie nun zwei Funktionen `getAdressA` und `getPublicDataA`, die das gleiche tun, 

src/Aufgabe3.hs

@@ -24,7 +24,7 @@ berechnungMitEingabe x y z w = undefined
 -- Eingabeparameter-Tupel zusammen mit dem möglichst maximalen Ergebnis zurückgibt. 
 
 nBesteEingaben :: Int -> Double -> [(Double,(Double,Double,Double,Double))]
-nBesteEingaben n d = take n $ sortOn (undefined) $ undefined
+nBesteEingaben n d = undefined -- Beginne mit: take n $ sortOn (undefined) $ undefined
   where range = [(-10),(-(10-d))..10]
 
 result = show $ nBesteEingaben 10 1

src/Aufgabe3.lhs

@@ -24,7 +24,7 @@ Definieren mithilfe von `berechnungMitEingabe` eine Funktion `nBesteEingaben`, w
 Eingabeparameter-Tupel zusammen mit dem möglichst maximalen Ergebnis zurückgibt. 
 
 > nBesteEingaben :: Int -> Double -> [(Double,(Double,Double,Double,Double))]
-> nBesteEingaben n d = take n $ sortOn (undefined) $ undefined
+> nBesteEingaben n d = undefined --Beginne mit: take n $ sortOn (undefined) $ undefined
 >   where range = [(-10),(-(10-d))..10]
 
 > result = show $ nBesteEingaben 10 1

src/Aufgabe4.hs

@@ -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`, 

src/Hui.hs

@@ -2,4 +2,4 @@ module Hui
         ( komplizierteFunktion
         ) where
 
-komplizierteFunktion x y z w = w * exp(x*y - z)
+komplizierteFunktion x y z w = 1/exp (abs (x- 2.3))^2 * sin( (y- 2.9))^2+cos( (0.4*z- 2.6))^5 *(2*z)^2-(2*z- 2.6)^2+ (25-log(abs (w- 0.6)+1))