Unique characters: Difference between revisions

Content added Content deleted

Inline

@@ Line 586: / Line 586: @@
 uniqueChars :: [String] -> String
-uniqueChars xs =
+uniqueChars ws =
   [ k
     | (k, v) <-
-        M.assocs $
+        M.assocs $ foldr addedWord M.empty ws,
-          foldr
-            (flip (foldr (flip (M.insertWith (+)) 1)))
-            M.empty
-            xs,
 == v
   ]
+  where
+    addedWord = flip $ foldr updatedCharCount
+    updatedCharCount c = M.insertWith (+) c 1
 --------------------------- TEST -------------------------