Haskell Sortieren Vergleichen < Softwaretechnik+Pro < Praktische Inform. < Hochschule < Informatik < Vorhilfe
|
| Status: |
(Frage) überfällig  | | Datum: | 22:25 Do 03.07.2014 | | Autor: | rsprsp |
| Aufgabe | Ich habe eine Datenmenge und soll diese nach einem Wert sortieren.
Die Datenmenge ist:
data Buch = Buch {
autor :: String,
titel :: String,
jahr :: Integer,
verlag :: String
} deriving (Show)
Sortieren soll man nach Autor! |
autorVergleich :: [Buch] -> [Buch]
autorVergleich b = buchvergleich (sortiereAutor b) b
where
sortiereAutor :: [Buch] -> [String]
sortiereAutor [] = []
sortiereAutor ((Buch a _ _ _):xs) = mergesort (<) ( [a] ++ sortiereAutor xs )
buchvergleich :: [String] -> [Buch] -> [Buch]
buchvergleich [] [] = []
buchvergleich [] b = b
buchvergleich l [] = []
buchvergleich (x:xs) b@((Buch a t j v):bs) = if x==a
then [(Buch a t j v)] ++ buchvergleich xs b
else buchvergleich (x:xs) bs
Die Funktion sortiereAutor nimmt die Autoren raus und sortiert sie alphabetisch.
Die Funktion buchvergleich versucht die Autoren wieder in die Bücher rein zu machen. Das Problem bei der Funktion ist, dass sie nach dem finden des ersten Elements nicht die ganze Liste von Büchern nimmt, sondern die übrige Liste (aufgrund der Rekursion)
Konnte mir jemand ein Tipp geben wie ich erneut mit der ganzen Liste von Büchern vergleichen kann? Oder vielleicht hat jemand eine andere Idee zur Lösung dieser Aufgabe.
Danke im voraus.
Gruß
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 23:20 Mi 09.07.2014 | | Autor: | matux |
$MATUXTEXT(ueberfaellige_frage)
|
|
|
|
