Imports System
Module UniqueRandomIntArray
Dim rnGen As System.Random = New System.Random()
Sub uriArray(rray() As Integer)
Dim low As Integer = 0
Dim high As Integer = 40
Dim rn As Integer
Dim haveit As Integer = 20
Dim i As Integer = 1
Dim j As Integer
While (Not haveit) And (i < rray.Length)
rn = randNum(low, high)
For j = 0 To i
If rn = rray(j) Then
haveit = j
j = i
End If
Next
If haveit Then
' Console.WriteLine("a[" & haveit & "] is " & rn & " already")
'count how many times, rather than printing each one
haveit = 0
Else
' Console.WriteLine("a[" & i & "] is " & rn)
rray(i) = rn
i += 1
End If
End While
End Sub
Function randNum(min As Integer, max As Integer) As Integer
Dim randnum As Integer = rnGen.Next(min, max+1)
Return randnum
End Function
Function MaxPos()
End Function
sub SwapPos()
End Sub
sub sortThis()
End Sub
Sub Main()
Dim arra() As Integer = New Integer(9) {}
uriArray(arra)
For i As Integer = 0 To arra.Length - 1
Console.Write(" | " & arra(i))
Next
Console.WriteLine(" | ")
End Sub
End Module
SW1wb3J0cyBTeXN0ZW0KCk1vZHVsZSBVbmlxdWVSYW5kb21JbnRBcnJheQogCiAgIERpbSBybkdlbiBBcyBTeXN0ZW0uUmFuZG9tID0gTmV3IFN5c3RlbS5SYW5kb20oKQogCiAgIFN1YiB1cmlBcnJheShycmF5KCkgQXMgSW50ZWdlcikKIAogICAgICBEaW0gbG93IEFzIEludGVnZXIgPSAwCiAgICAgIERpbSBoaWdoIEFzIEludGVnZXIgPSA0MAogCiAgICAgIERpbSBybiBBcyBJbnRlZ2VyCiAgICAgIERpbSBoYXZlaXQgQXMgSW50ZWdlciA9IDIwCiAgICAgIERpbSBpIEFzIEludGVnZXIgPSAxCiAgICAgIERpbSBqIEFzIEludGVnZXIKIAogICAgICBXaGlsZSAoTm90IGhhdmVpdCkgQW5kIChpIDwgcnJheS5MZW5ndGgpCiAgICAgICAgIHJuID0gcmFuZE51bShsb3csIGhpZ2gpCiAKICAgICAgICAgRm9yIGogPSAwIFRvIGkKICAgICAgICAgICAgSWYgcm4gPSBycmF5KGopIFRoZW4KICAgICAgICAgICAgICAgaGF2ZWl0ID0gagogICAgICAgICAgICAgICBqID0gaQogICAgICAgICAgICBFbmQgSWYKICAgICAgICAgTmV4dAogCiAgICAgICAgIElmIGhhdmVpdCBUaGVuCicgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCJhWyIgJiBoYXZlaXQgJiAiXSBpcyAiICYgcm4gJiAiIGFscmVhZHkiKQonY291bnQgaG93IG1hbnkgdGltZXMsIHJhdGhlciB0aGFuIHByaW50aW5nIGVhY2ggb25lIAogICAgICAgICAgICBoYXZlaXQgPSAwCiAgICAgICAgIEVsc2UKICcgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCJhWyIgJiBpICYgIl0gaXMgIiAmIHJuKQogICAgICAgICAgICBycmF5KGkpID0gcm4KICAgICAgICAgICAgaSArPSAxCiAgICAgICAgIEVuZCBJZgogCiAgICAgICBFbmQgV2hpbGUKICAgRW5kIFN1YgoKCiAgIEZ1bmN0aW9uIHJhbmROdW0obWluIEFzIEludGVnZXIsIG1heCBBcyBJbnRlZ2VyKSBBcyBJbnRlZ2VyCiAgICAgIERpbSByYW5kbnVtIEFzIEludGVnZXIgPSBybkdlbi5OZXh0KG1pbiwgbWF4KzEpCiAgICAgIFJldHVybiByYW5kbnVtCiAgIEVuZCBGdW5jdGlvbgoKICBGdW5jdGlvbiBNYXhQb3MoKQogIEVuZCBGdW5jdGlvbiAgCiAgIAogICBzdWIgU3dhcFBvcygpCiAgIEVuZCBTdWIKICAgCiAgIHN1YiBzb3J0VGhpcygpCiAgIEVuZCBTdWIgCiAgIAogICBTdWIgTWFpbigpCiAgICAgIERpbSBhcnJhKCkgQXMgSW50ZWdlciA9IE5ldyBJbnRlZ2VyKDkpIHt9CiAgICAgIHVyaUFycmF5KGFycmEpCiAgICAgIEZvciBpIEFzIEludGVnZXIgPSAwIFRvIGFycmEuTGVuZ3RoIC0gMQogICAgICAgICBDb25zb2xlLldyaXRlKCIgfCAiICYgYXJyYShpKSkKICAgICAgTmV4dAogICAgICBDb25zb2xlLldyaXRlTGluZSgiIHwgIikKICAgRW5kIFN1YgogCkVuZCBNb2R1bGUKCg==