Haskell 多重过滤器

Question

我想通过来自另一个列表的谓词过滤列表。
例如:

multifilter :: (a -> a -> Bool) -> [a] -> [a] -> [a]
multifilter _ _ [] = []
multifilter _ [] _ = []
multifilter f (x:xs) ys = (filter (f x) ys) ++ (multifilter f xs ys)

使用如:

prelude> multifilter (==) [1,2,3] [5,3,2]
[2,3]

有没有标准的方法来做到这一点？

Answer 1

您可以使用 intersectBy :

λ> :t intersectBy
intersectBy :: (a -> a -> Bool) -> [a] -> [a] -> [a]
λ> intersectBy (==) [1,2,3] [5,3,2]
[2,3]

您可以使用 hoogle使用类型签名搜索函数并找到它们。