 | Hallo,
hier sind mal Lösungsversuche der Aufgaben 2 - 4. Mit den Permutationen der Aufgabe 5 und schlimmen Zahnschmerzen kämpfe ich leider noch.
--------------------------------
module Uebungsblatt_05 where
middle :: [a] -> a
middle xs = xs !! (( div ( length xs + 1 ) 2 ) - 1 )
allEqual :: [Integer] -> Bool
allEqual [] = True
allEqual (x:[]) = True
allEqual (x:y:xs) = x == y && allEqual ( y:xs )
merge :: Ord a => [a] -> [a] -> [a]
merge [] ys = ys
merge xs [] = xs
merge (x:xs) (y:ys)
| x < y = x : merge xs (y:ys)
| otherwise = y : merge (x:xs) ys
mergesort :: Ord a => [a] -> [a]
mergesort xs | length xs <= 1 = xs
| otherwise = merge ( mergesort (take (length xs `div` 2) xs) ) ( mergesort (drop (length xs `div` 2) xs) )
--------------------------------------
Zu den Permutationen habe ich leider noch nicht die richtige Lösung gefunden.
Für middle sollte man es vielleicht noch hin bekommen, für eine leere Liste als Eingabe eine Fehlermeldung auszugeben, aber das scheitert bei mir bis jetzt an der Typisierung.
Für Ideen zu den Permutationen wäre ich dankbar!
|
