Unique characters: Difference between revisions
Unique characters en Yabasic
(Unique characters en FreeBASIC) |
(Unique characters en Yabasic) |
||
Line 1,330:
1 5 6 b g s t z
</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}}==
| |||