Unique characters: Difference between revisions
→{{header|Nim}}
m (→{{header|ALGOL 68}}: Notes) |
|||
Line 804:
1.010 μs (14 allocations: 1.05 KiB)
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>Select[Tally[Sort[Characters[StringJoin[{"133252abcdeeffd", "a6789798st", "yxcdfgxcyz"}]]]], Last /* EqualTo[1]][[All, 1]]</lang>
{{out}}
<pre>{"1", "5", "6", "b", "g", "s", "t", "z"}</pre>
=={{header|Nim}}==
|