刪除列表中的給定元素的出現

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併爲每個x在xs每個xs，保持x只有當它的不同y：

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

這是確定的，如果你只是在練習，但你的版本map是更好的方式:)

Answer 2

我想沿着線的東西：

remove y ls = [f|l <- ls, let f = filter (/= y) l] 

應該罰款。

它基本上規定，對於每個綁定l，你可以在列表ls中添加過濾列表f到結果列表中。