Feedback

VB - Fibonacci-Folge iterativ erzeugen

Veröffentlicht von am 11.03.2010
(2 Bewertungen)
Im Vergleich zur rekursiven Methode, dessen Aufwand exponentiell mit jeder Zahl steigt, verläuft die iterative Weise linear, und ist somit um einiges Schneller.

http://de.wikipedia.org/wiki/Fibonacci-Folge
Function fib(ByVal n As Integer) As Integer
    Dim f1 As Integer = 1, f2 As Integer = 0

    For i As Integer = 1 To n
        n = f1 + f2
        f1 = f2
        f2 = n
    Next

    Return n
End Function

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!