Unique characters: Difference between revisions
→{{header|Haskell}}
Not a robot (talk | contribs) (Add C) |
|||
Line 398:
156bgstz
</pre>
=={{header|Haskell}}==
<lang haskell>import Data.List (group, sort)
uniques :: [String] -> String
uniques ks =
[c | (c : cs) <- (group . sort . concat) ks, null cs]
main :: IO ()
main =
putStrLn $
uniques
[ "133252abcdeeffd",
"a6789798st",
"yxcdfgxcyz"
]</lang>
{{Out}}
<pre>156bgstz</pre>
=={{header|J}}==
|