Zitat von
NamenLozer:
Nö, ich vergleiche die beiden Implementierungen, die in der Arbeit gegeben waren, um die geht es ja schließlich.
Hab ich auch grad gesehen.
Dann muss ich meine Ausführungen korrigieren: Der Lehrer vergleicht Äpfel mit Birnen.
Mal sehen: Eine rekursive Fibionacci-Implementierung, die auch recht flott ist:
Delphi-Quellcode:
Var
Buffer : Array [0..1000] Of Integer; // Einmalig mit '0' initialisieren
function fib_rek(pZahl:Integer):Integer;
begin
if Buffer[pZahl]>0 then
Result := Buffer[pZahl]
Else if pZahl < 3 Then
Result := 1
Else
Result := fib_rek(pZahl-1) + fib_rek(pZahl-2);
Buffer[pZahl] := Result;
end;
Probier die mal...
Zitat von
Mein Laptop:
Iterative: 0,186 ms
Recursive: 0,076 ms
Leider ist aber die Antwort vom Threadersteller in jedem Falle falsch, denn der Grund für die drastischen Performanceunterschiede liegen im Verfahren, Speicherverbrauch hin oder her.