比较两个字符串并在两个字符串中显示字符

Question

我需要一个显示字符的函数，这些字符位于相同卷号的两个给定字符串上。

示例：

checkChars“aabbcf”“aabce”=＆gt; “ac”

我得到了什么：

import Data.List 
import Data.Map
checkChars a b = nub $ intersect a b
    where 

这基本上与两个列表相交，但在我需要代码的地方之后计算字符并过滤它。这可能吗？

Answer 1

不知道这是否是你想要的，但我想你想要的东西只输出相同次数的字母。这样就可以了：

checkChars a b = concatMap (take 1) $ intersect (group (sort a)) (group (sort b))