40 lines
808 B
Plaintext
40 lines
808 B
Plaintext
' FB 1.05.0 Win64
|
|
|
|
Sub removeDuplicates(a() As Integer, b() As Integer)
|
|
Dim lb As Integer = LBound(a)
|
|
Dim ub As Integer = UBound(a)
|
|
If ub = -1 Then Return '' empty array
|
|
Redim b(lb To ub)
|
|
b(lb) = a(lb)
|
|
Dim count As Integer = 1
|
|
Dim unique As Boolean
|
|
|
|
For i As Integer = lb + 1 To ub
|
|
unique = True
|
|
For j As Integer = lb to i - 1
|
|
If a(i) = a(j) Then
|
|
unique = False
|
|
Exit For
|
|
End If
|
|
Next j
|
|
If unique Then
|
|
b(lb + count) = a(i)
|
|
count += 1
|
|
End If
|
|
Next i
|
|
|
|
If count > 0 Then Redim Preserve b(lb To lb + count - 1)
|
|
End Sub
|
|
|
|
Dim a(1 To 10) As Integer = {1, 2, 1, 4, 5, 2, 15, 1, 3, 4}
|
|
Dim b() As Integer
|
|
removeDuplicates a(), b()
|
|
|
|
For i As Integer = LBound(b) To UBound(b)
|
|
Print b(i); " ";
|
|
Next
|
|
|
|
Print
|
|
Print "Press any key to quit"
|
|
Sleep
|