Unique characters: Difference between revisions
Content added Content deleted
(Unique characters en FreeBASIC) |
(Unique characters en Yabasic) |
||
Line 1,330: | Line 1,330: | ||
1 5 6 b g s t z |
1 5 6 b g s t z |
||
</pre> |
</pre> |
||
=={{header|Yabasic}}== |
|||
{{trans|FreeBASIC}} |
|||
<lang yabasic>dim c(255) |
|||
data "133252abcdeeffd", "a6789798st", "yxcdfgxcyz", "" |
|||
repeat |
|||
read s$ |
|||
for i = 1 to len(s$) |
|||
a = asc(mid$(s$,i,1)) |
|||
c(a) = c(a) + 1 |
|||
next i |
|||
until s$ = "" |
|||
for i = 1 to 255 |
|||
if c(i) = 1 then s$ = s$ + chr$(i) : fi |
|||
next i |
|||
print s$ |
|||
end</lang> |
|||
{{out}} |
|||
<pre> |
|||
Igual que la entrada de FreeBASIC. |
|||
</pre> |
|||
=={{header|XPL0}}== |
=={{header|XPL0}}== |