37 lines
1.0 KiB
VB.net
37 lines
1.0 KiB
VB.net
Module Module1
|
|
|
|
ReadOnly table = {
|
|
{0, 3, 1, 7, 5, 9, 8, 6, 4, 2},
|
|
{7, 0, 9, 2, 1, 5, 4, 8, 6, 3},
|
|
{4, 2, 0, 6, 8, 7, 1, 3, 5, 9},
|
|
{1, 7, 5, 0, 9, 8, 3, 4, 2, 6},
|
|
{6, 1, 2, 3, 0, 4, 5, 9, 7, 8},
|
|
{3, 6, 7, 4, 2, 0, 9, 5, 8, 1},
|
|
{5, 8, 6, 9, 7, 2, 0, 1, 3, 4},
|
|
{8, 9, 4, 5, 3, 6, 2, 0, 1, 7},
|
|
{9, 4, 3, 8, 6, 1, 7, 2, 0, 5},
|
|
{2, 5, 8, 1, 4, 3, 6, 7, 9, 0}
|
|
}
|
|
|
|
Function Damm(s As String) As Boolean
|
|
Dim interim = 0
|
|
For Each c In s
|
|
interim = table(interim, AscW(c) - AscW("0"))
|
|
Next
|
|
Return interim = 0
|
|
End Function
|
|
|
|
Sub Main()
|
|
Dim numbers = {5724, 5727, 112946, 112949}
|
|
For Each number In numbers
|
|
Dim isvalid = Damm(number.ToString())
|
|
If isvalid Then
|
|
Console.WriteLine("{0,6} is valid", number)
|
|
Else
|
|
Console.WriteLine("{0,6} is invalid", number)
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
End Module
|