Unique characters: Difference between revisions

=={{header|FreeBASIC}}==

<lang freebasic>Dim As Integer c(255), i, a

Dim As String s

Do

Read s

For i = 1 To Len(s)

a = Asc(Mid(s,i,1))

c(a) += 1

Next i

Loop Until s = ""

For i = 1 To 255

If c(i) = 1 Then s &= Chr(i)

Next i

Print s

Data "133252abcdeeffd", "a6789798st", "yxcdfgxcyz", ""

Sleep</lang>

{{out}}

<pre>156bgstz</pre>