Unique characters: Difference between revisions
→{{header|Haskell}}
Line 586:
uniqueChars :: [String] -> String
uniqueChars
[ k
| (k, v) <-
M.assocs $ foldr addedWord M.empty ws,
1 == v
]
where
addedWord = flip $ foldr updatedCharCount
updatedCharCount c = M.insertWith (+) c 1
--------------------------- TEST -------------------------
|