Pandigitale Zahlen

1
2
3
4
5
6
7
8
9
10
11
12
13

Function is_pand(ByVal n As Integer, ByVal p As Byte, _
                 Optional ByVal incl0 As Boolean = False) As Boolean
    If CStr(n).Length + CByte(incl0) <> p Then Return False
    Dim d As New List(Of Byte)

    For i As Byte = CByte(incl0) To p
        Dim m As Byte = n Mod 10
        If d.Contains(m) Then Return False Else d.Add(m)
        n \= 10
    Next

    Return True
End Function