haskell - 删除列表列表中给定元素的出现

Question

我有这个函数可以删除列表列表中给定元素的出现。

remove          :: Eq a => a -> [[a]] -> [[a]]
remove    y []  = error "Can't remove an element from an empty list"
remove    y xs  = map (filter(/=y)) xs

我如何使用列表理解来做同样的事情

谢谢

Answer 1

对于 xs 中的每个 l，将 filter (/= xs) l 添加到结果列表中:

remove y xs = [filter (/= y) l | l <- xs]

或者，通过嵌套理解移除过滤器。对于 xss 中的每个 xs 和 xs 中的每个 x，仅保留 x如果它与 y 不同:

remove y xss = [ [x| x <- xs, x /= y] | xs <- xss]

如果你只是练习也没关系，但是你的 map 版本要好得多:)