Die Community zu .NET und Classic VB.

Startseite / Tipps / VB.NET-Tipp 0132: Rekursive anonyme Funktionen (Lambda-Ausdrücke)

VB.NET-Tipp 0132: Rekursive anonyme Funktionen (Lambda-Ausdrücke)

 von Dario

Schwierigkeitsgrad:

Framework-Version(en): .NET Framework 1.0, .NET Framework 1.1, .NET Framework 2.0, .NET Framework 3.0, .NET Framework 3.5, .NET Compact Framework 1.0, .NET Compact Framework 2.0, .NET Framework 4

.NET-Version(en): Visual Basic 2002, Visual Basic 2003, Visual Basic 2005, Visual Basic 2008, Visual Basic 2010

Download: Download des Beispielprojektes [7,63 KB]

' Dieser Quellcode stammt von http://www.activevb.de
' und kann frei verwendet werden. Für eventuelle Schäden
' wird nicht gehaftet.

' Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
' Ansonsten viel Spaß und Erfolg mit diesem Source!

' Projektversion:   Visual Studio 2008
' Option Strict:    An
' Option Explicit:  An
' Option Infer:     An
'
' Referenzen: 
'  - System
'  - System.Data
'  - System.Deployment
'  - System.Xml
'  - System.Core
'  - System.Xml.Linq
'  - System.Data.DataSetExtensions
'
' Imports: 
'  - Microsoft.VisualBasic
'  - System
'  - System.Collections
'  - System.Collections.Generic
'  - System.Data
'  - System.Diagnostics
'  - System.Linq
'  - System.Xml.Linq
'

' ##############################################################################
' ################################ Module1.vb ##################################
' ##############################################################################
Module Module1

    Delegate Function FixedPointFunction(Of TIn, TOut) _
        (ByVal f As Func(Of TIn, TOut)) As Func(Of TIn, TOut)

    Function Fix(Of T, TRes)(ByVal f As FixedPointFunction(Of T, TRes)) _
            As Func(Of T, TRes)

        Return f(Function(x) Fix(f)(x))
    End Function

    Sub Main()
        Dim Factorial = Fix(Of Integer, Integer) _
            (Function(f) Function(x) If(x <= 1, 1, x * f(x - 1)))

        Dim k = 7
        Console.WriteLine("{0}! = {1}", k, Factorial(k))

        Console.ReadKey()
    End Sub

End Module