Unique characters in each string: Difference between revisions
→{{header|Nim}}
Line 594:
['1', '2', '3', 'a', 'b', 'c']
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>sets = Characters /@ {"1a3c52debeffd", "2b6178c97a938stf", "3ycxdb1fgxa2yz"};
uniques = Sort[Select[Tally[#], Last/*EqualTo[1]][[All, 1]]] & /@ sets;
Intersection @@ uniques</lang>
{{out}}
<pre>{"1", "2", "3", "a", "b", "c"}</pre>
=={{header|Nim}}==
| |||