Perl Rekursion "Fibonnacci"
Hallo,
kann mir jemand erklären, wie das Programm zu dem unten genannten Ergebnis kommt?Ich versteh den Rechenweg nicht.
Also der erste Wert ist klar, ist der Zähler von der Schleife. Aber der zweite Wert, ich versteh nicht wie es zu diesen Zahlen kommt.
---------------------------------------------------------------
sub fibonacci{
my($value)=@_;
return 1 if $value <= 2;
return fibonacci($value -1)+fibonacci($value -2);
}
print "$_: ", fibonacci($_), "\n" for (1 .. 7);
-----------------------------------------------------------------
Die Ausgabe ist folgende:
1: 1
2: 1
3: 2
4: 4
5: 8
6: 16
7: 32
Danke im Vorraus
|