Unique characters: Difference between revisions
Added XPL0 example.
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
(Added XPL0 example.) |
||
Line 113:
Found 8 unique character(s), namely:
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>
| |||