使用Data.Set.intersection
:
import qualified Data.Set as S
sharedLetters str1 str2 = S.toList $ S.intersection (S.fromList str1) (S.fromList str2)
编辑:正如@jozefg 指出的那样,有一个函数Data.List
对列表执行相同的操作:
> import Data.List (intersect)
> intersect "liked" "iced"
"ied"