Unique characters in each string: Difference between revisions
Content added Content deleted
Line 594: | Line 594: | ||
['1', '2', '3', 'a', 'b', 'c'] |
['1', '2', '3', 'a', 'b', 'c'] |
||
</pre> |
</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}}== |
=={{header|Nim}}== |