15 lines
368 B
Plaintext
15 lines
368 B
Plaintext
Public Sub Main()
|
|
Dim sString As String[] = Split("Now is the time for all the good men to come to the aid of the good party 1 2 1 3 3 3 2 1 1 2 3 4 33 2 5 4 333 5", " ")
|
|
Dim sFix As New String[]
|
|
Dim sTemp As String
|
|
|
|
For Each sTemp In sString
|
|
sTemp &= " "
|
|
If InStr(sFix.Join(" ") & " ", sTemp) Then Continue
|
|
sFix.Add(Trim(sTemp))
|
|
Next
|
|
|
|
Print sFix.Join(" ")
|
|
|
|
End
|