Haskell || verschachtelte Listen / rekursive Funktionen

[RafRaf23]

Hallo Leute,

ich bin neu hier also bitte verzeiht meine Fehler.

Ich hoffe ihr koennt mir mit meinem Problem helfen.

Ich habe begonnen mich ein bisschen in Haskell einzuarbeiten.

Dazu nutze ich Hugs auf einem Kubuntu OS innerhalb einer Virtuellen Maschine.

(Ich muss betonen, dass ich mit Linux wenig Erfahrung habe.)

Wie auch immer mein Problem ist nun folgendes:

Ich habe eine Liste mit Namen gegeben

Beispiel:

["Adam","Berta","Caesar","Dora"]

Nun will ich die Laenge aller Namen ausgeben und vergleichen, so dass ich den laengsten Namen herausfinde.

Leider komme ich mit den rekursiven Funktionen nicht ganz klar.

Bisher habe ich es nur geschafft die Laenge einer Liste bzw. eines Strings auszugeben.

Ist im Prinzip wie die Built-in-Funktion length:

------------------------------------------------

myLength :: [a] -> Int

myLength [_] = 1

myLength (x:xs) = 1 + myLength xs

------------------------------------------------

>mylength "Adam"

>4

Jetzt will ich durch die Liste gehen und jedes Unterelement zaehlen. Im Prinzip soll folgendes rauskommen:

>zaehleAlleElemente ["Adam","Berta","Caesar","Dora"]

>[4,5,6,4]

bzw. soll mir den laengsten Namen ausgeben:

>laengsterName ["Adam","Berta","Caesar","Dora"]

>Caesar

Ich hoffe ihr koennt mir helfen.

Danke im voraus fuer eure Bemuehungen.

[frosch03]

------------------------------------------------

myLength :: [a] -> Int

myLength [_] = 1

myLength (x:xs) = 1 + myLength xs

------------------------------------------------

Jetzt will ich durch die Liste gehen und jedes Unterelement zaehlen. Im Prinzip soll folgendes rauskommen:

>zaehleAlleElemente ["Adam","Berta","Caesar","Dora"]

>[4,5,6,4]

zaehleAlleElemente = map myLength 

bzw. soll mir den laengsten Namen ausgeben: >laengsterName ["Adam","Berta","Caesar","Dora"] >Caesar

laengsterName xs = f xs []

    where f [] erg      = erg

             f (x:xs) erg = if (length x) > (length erg)

                                then f xs x

                                else f xs erg

hoffe das passt, habs nicht probiert

greetings frogger