Unique characters: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
(Added XPL0 example.) |
||
Line 113: | Line 113: | ||
Found 8 unique character(s), namely: |
Found 8 unique character(s), namely: |
||
1 5 6 b g s t z |
1 5 6 b g s t z |
||
</pre> |
|||
=={{header|XPL0}}== |
|||
<lang XPL0>int List, I, N, C; |
|||
char Tbl(128), Str; |
|||
string 0; |
|||
[List:= ["133252abcdeeffd", "a6789798st","yxcdfgxcyz"]; |
|||
for I:= 0 to 127 do Tbl(I):= 0; |
|||
for N:= 0 to 2 do |
|||
[Str:= List(N); |
|||
I:= 0; |
|||
loop [C:= Str(I); |
|||
if C = 0 then quit; |
|||
I:= I+1; |
|||
Tbl(C):= Tbl(C)+1; |
|||
]; |
|||
]; |
|||
for I:= 0 to 127 do |
|||
if Tbl(I) = 1 then ChOut(0, I); |
|||
]</lang> |
|||
{{out}} |
|||
<pre> |
|||
156bgstz |
|||
</pre> |
</pre> |