最大公約数を求める

gdc.vb

Module Module1

    Sub Main()

        ' 1000,2500,5000 の最大公約数を求める
        Dim n = {1000, 2500, 5000}.Aggregate(AddressOf GDC)
        Console.WriteLine(n)
        Console.ReadLine()

    End Sub

    ''' <summary>
    ''' 最大公約数を求める
    ''' </summary>
    Function GDC(a As Integer, b As Integer) As Integer
        Dim w As Integer
        If a > b Then
            w = b
            b = a
            a = w
        End If
        While b <> 0
            w = a Mod b
            a = b
            b = w
        End While
        Return a
    End Function

End Module