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