[vb] metodo + veloce per eliminare duplicati

[Andrea Simonassi]

Option Explicit

Public val As String
Public left As Node
Public right As Node


Public Function Add(s As String) As Boolean
    Add = False
    If s > val Then
        
        If right Is Nothing Then
            Add = True
            Set right = New Node
            right.val = s
        Else
            Add = right.Add(s)
        End If
    ElseIf s < val Then
        If left Is Nothing Then
            Add = True
            Set left = New Node
            left.val = s
        Else
            Add = left.Add(s)
        End If
    End If
End Function