Forum: Object-Pascal / Delphi-Language
Delphi
by leddl,
11. Apr 2005
Ok, habs jetzt mal selbst getestet. Der rekursive Aufruf hinkt wirklich ab ca. 30 deutlichst hinterher. Wohl doch wirklich nich so gut. ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by leddl,
11. Apr 2005
Kanns bei mir nich compilieren, deshalb kann ich nich viel dazu sagen, aber was meinst du mit "hängen"? Brauchts nur lange oder hängt sich das Programm auf? Also mein Code funktioniert bei mir einwandfrei und selbst mit etwas höheren Zahlen merkt man keinen Hänger...
Forum: Object-Pascal / Delphi-Language
Delphi
by leddl,
11. Apr 2005
Hehe, da sieht man wieder, was Rekursion so alles bringen kann. Das Ergebnis kann - schon wenn man nur einen Blick auf den Code wirft - eigentlich nur richtig sein.
Und besser langsam und richtig, als schnell und falsch! ;)
Das Problem an glkgereon's Code ist, daß nach dem ersten Aufruf Last immer gleich Result ist, und somit Result immer einfach nur verdoppelt wird. Aber das ist eben in so ner...
Forum: Object-Pascal / Delphi-Language
Delphi
by leddl,
11. Apr 2005
Ach le**t mich doch alle! :mrgreen: :zwinker:
Ich kenn mich mit den ganzen Gschichten auch nich so aus. Is nur so, daß ich Rekursionen um einiges verständlicher und übersichtlicher finde. (Und ich hab halt nunmal gerne Code, den ich auch nach längerer Zeit schnell wieder verstehe) Und außerdem bekommt man in der Uni ständig beigebracht, möglichst viel rekursiv zu programmieren... :gruebel:
...
Forum: Object-Pascal / Delphi-Language
Delphi
by leddl,
11. Apr 2005
Ich benutz es auch zu selten, aber in dem Fall springt einen die Rekursion ja schon fast an. ;)
*Hust* *Hust* schon passiert. :wall: Hatte ich nich drangedacht!
Forum: Object-Pascal / Delphi-Language
Delphi
by leddl,
11. Apr 2005
Warum so kompliziert? :gruebel:
function fibonacci(Index : Integer) : Int64;
Begin
Case Index of
1, 2 : Result := 1;
Else Result := fibonacci(Index-2) + fibonacci(Index-1);
End;
End;