Unique characters: Difference between revisions
Unique characters en FreeBASIC
(Added solution for Action!) |
(Unique characters en FreeBASIC) |
||
Line 656:
156bgstz
</pre>
=={{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>
=={{header|Go}}==
| |||