Feedback

VB - Fibonacci-Folge iterativ erzeugen

Veröffentlicht von am 3/11/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!