Finde das Maximum einer verketteten Liste (mit rekursiver Funktion)

[Der schöne Günther]

Zitat von Ghostwalker:

Eine Rekursion ist bei einer einfach verketteten Liste überhaupt nicht nötig.

Das ist der Punkt den ich auch nicht verstehe.

[himitsu]

Iteration mit einer Schleife gucksich alles an

Rekursion ... die Funktion guckt den übergebenen Parameter an und ruft sich selber auf, wenn es einen Folgeknoten gibt. (xxx ist nicht unbedingt nötig, da die Funktion bereits den Eingamgsparameter prüft)


Kombinieren tut man Iteration und Rekursion oftmals, wenn man in Bäumen sucht. (Geschwister in einer Schleife und Kinder rekursiv)
Aber bei einem Baum in verketten Listen könnte man ganz gut iterativ suchen und bräuchte dafür auch keinen Stack, um sich die vorhergehenden Zwischenschritte zu speichern.

[Jasocul]

Es ist eine Aufgabe des TE. Also vermutlich Schule.
Ob es sinnvoll ist, dass mit einer einfach verketteten Liste zu machen, kann man in Frage stellen.

Ich habe die Funktion mal schnell fertig gemacht (mir war gerade danach):

Delphi-Quellcode:

function ZeigListMax (inRefAnfang : tRefListe) : tRefListe;
begin
  Result := inRefAnfang;
  if inRefAnfang <> nil then
  begin
    if inRefAnfang^.next <> nil then
    begin
      if inRefAnfang^.info >= ZeigListMax(inRefAnfang^.Next).info then
      begin
        Result := inRefAnfang;
      end
      else
      begin
        Result := ZeigListMax(inRefAnfang^.Next);
      end;
    end;
  end;
end;

Nicht hübsch, aber sollte funktionieren und ohne Schleifen.

Übrigens ist der doppelte Aufruf um Hauptprogramm so nicht erforderlich.

[DesWeeedert]

Hallo!

Ich habs tatsächlich auch selber geschafft, glaube ich:

Code:

function ZeigListMax (inRefAnfang : tRefListe) : tRefListe;
  { bestimmt rekursiv einen Zeiger auf das Listenelement mit
    der groessten Zahl }
   
   begin
      if inRefAnfang = nil then
         ZeigListMax := nil
      else
         if inRefAnfang^.next = nil then
            ZeigListMax := inRefAnfang
         else
         begin
            if inRefAnfang^.info < (ZeigListMax(inRefAnfang^.next)^.info) then
               ZeigListMax := ZeigListMax(inRefAnfang^.next)
            else
               ZeigListMax := inRefAnfang;
         end;      
   end;

Ist ein bisschen anders als die Lösung von Jasocul, aber sollte auch funktionieren.

Nochmal vielen Dank euch allen für die Hilfe =)

[Michael II]

Komplett absurde Aufgabe. Wer solche Aufgaben stellt sollte selbst noch einmal die Schule besuchen .
Das ist etwa gleich, wie wenn eine klare Brühe serviert wird und du die Gabel zum Essen verwenden sollst.

[himitsu]

Lernen?
Querdenken und was auch mal mit unpassenderen Mitteln lösen.

[Michael II]

Zitat:

Lernen?
Querdenken und was auch mal mit unpassenderen Mitteln lösen.

Wenn ein Lehrer andere lehrt falsche Mittel zur Lösung einer Aufgabe einzusetzen, dann ist der Lerneffekt irgendwo bei -1000.

Ich nutze für mathematische Probleme (Knotentheorie, Spieltheorie u.s.w.) sehr oft eine Rekursion. Aber für eine Suche nach Listenelementen, welche via Zeiger(!) miteinander verbunden sind ist die Verwendung einer Rekursion absoluter Nonsens [keine Angst: ich schreib nicht nochmal hier rein ]. Querdenken immer - aber verquer...

https://de.wikipedia.org/wiki/Rekursion

[Ghostwalker]

Zitat von himitsu:

Lernen?
Querdenken und was auch mal mit unpassenderen Mitteln lösen.

Ja, dann kommen Programme auf den Markt, bei der ein einfacher Terminkalender 3 GB Hauptspeicher und min. ein I7 benötigt wird.

Sorry, aber bevor man das Querdenken erlernt, sollte man erstmal die richtigen Lösungsansätze erlernen. Erst, wenn man damit nicht weiterkommt, kann man Querdenken.

[Sherlock]

Zitat von Der schöne Günther:

Zitat von Ghostwalker:

Eine Rekursion ist bei einer einfach verketteten Liste überhaupt nicht nötig.

Das ist der Punkt den ich auch nicht verstehe.

Das Schulaufgaben nicht immer das absolut nötige wiedergeben, sollte doch nun wirklich Allgemeinwissen sein.

Sherlock