haskell - 如何使用列表理解计算两个列表的对称差异？

Question

为了获得两个列表的对称差异，我认为使用列表理解是个好主意。但我不知道如何删除列表的公共(public)元素并获取不同的元素。

例如

symDiff [1,2,3,4] [1,3,5]  -- should return [2,4,5].

目前为止

symDiff :: [a] -> [a] -> [a]
symDiff xs ys = 

Answer 1

我希望这会有所帮助，但是如果不使用 Eq a

我无法做到这一点

symDiff :: Eq a => [a] -> [a] -> [a]
symDiff setA setB = [c | c <- setA, not $ (elem c [x | x <- setB])]
                        ++ [c | c <- setB, not $ (elem c [x | x <- setA])]

对于

symDiff [1,2,3,4] [1,3,5]

将返回:[2,4,5]