Korrekturen und leichte Updates

exercises/block4/1-listenverdrehen/listenverdrehen.hs

@@ -5,7 +5,7 @@ import qualified Distribution.FieldGrammar as Data
 --3. gebe die Liste anschließend rückwärts heraus
 
 --Nutze dafür Methoden aus dem module Data.List
---Achtung nutze den richtigen Import, ansonsten kann es zu name clashes kommen
+--Achtung nutze den richtigen Typ von Import, ansonsten kann es zu name clashes kommen
 
 
 --Import
@@ -13,4 +13,14 @@ import qualified Distribution.FieldGrammar as Data
 
 
 --Funktion
-uniqueReverseList :: (Eq a, Ord a) => --hier in der Zeile fehlt noch etwas;)
+uniqueReverseList ::  --hier in der Zeile fehlt noch etwas. Tipp: man muss Werte auf gleichheit und verhältnis überprüfen können;)
+
+
+main = do
+	
+	let x = uniqueReverseList [2,1,13,1,27,71,59,43] == [71,59,43,27,13,2,1]
+	let y = uniqueReverseList "abcde" == "edcba"
+	
+	if x == y
+	then putStrLn "Funktion funktioniert"
+	else putStrLn "Funktion funktioniert nicht"

exercises/block4/4-oche/rueckwartsschreiber.hs

@@ -2,7 +2,7 @@
 --Tipp: Sinnvoll sind dabei die Verwendung der Funktionen map und reverse, sowie words und unwords
 
 --Funktion reverseWords
-reverseWords :: String -> String  
+reverseWords ::   
 
 --I/O-Abschnitt