Imports System
Imports System.Collections.Generic
Public Class Program
Public Shared Function GetUniqueExcludeDuplicates(ByVal lst As List(Of Integer)) As List(Of Integer)
Dim frequency As Dictionary(Of Integer, Integer) = New Dictionary(Of Integer, Integer)()
Dim result As List(Of Integer) = New List(Of Integer)()
For Each num As Integer In lst
If frequency.ContainsKey(num) Then
frequency(num) += 1
Else
frequency(num) = 1
End If
Next
For Each num As Integer In lst
If frequency(num) = 1 Then
result.Add(num)
End If
Next
Return result
End Function
Public Shared Sub Main(ByVal args As String())
Dim lst As List(Of Integer) = New List(Of Integer) From {
1, 2, 3, 5, 8, 3, 1, 1, 0, 6, 5, 7, 3, 1, 4, 9
}
Dim uniqueValues As List(Of Integer) = GetUniqueExcludeDuplicates(lst)
Console.Write("Unique values (excluding duplicates): ")
For Each num As Integer In uniqueValues
Console.Write(num & " ")
Next
Console.WriteLine()
End Sub
End Class
' run:
'
' Unique values (excluding duplicates): 2 8 0 6 7 4 9
'
