Finde das Maximum einer verketteten Liste (mit rekursiver Funktion)

[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

[DesWeeedert]

Zitat von 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.

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

Ich hätte vielleicht erwähnen sollen, dass ein zweiter Teil der Aufgabe die Frage war, ob denn die Rekursion hier sinnvoll angewendet wird.

Also ich fand die Aufgabe ganz gut, um das Prinzip der Rekursion zumindest ein erstes Mal kennenzulernen.

[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.

[jobo]

Mit einem Hammer kann man einen Nagel einschlagen, aber auch eine Schraube. Ein Schraubendreher eignet sich ausschlielich für die Verwendung mit Schrauben.
Manchmal darf man auch etwas neben der Spur lernen, arbeiten, experimentieren, um das beste Vorgehen wirklich im wahrsten Sinne des Wortes zu begreifen.
Das ist nicht so sehr eine Frage der Lernmethode oder vermittelten Möglichkeiten, sondern m.E. eher eine Frage des individuellen Lernverhaltens.
Am Ende lernt man vielleicht sogar noch, dass es nicht nur auf das richtige Werkzeug und passendes Material ankommt, sondern dass auch das Material verschiedene Wirkungen liefert und damit verschiedene Einsatzzwecke hat.
Die Praxis ist selten schwarz/weiß, wenn die Theorie da etwas mitgeht, finde ich das vollkommen ok.