从元组列表中过滤掉元组中的元素

Question

我有一个看起来像这样的元组列表：

[("APPLE",["APPLE","BANANA","PEAR"]),("ANANAS",["ANANAS","BANANA","APPLE"])]

但是，我想从元组的 snd 列表中删除元组中第一个元素的任何出现。 所以我希望元组列表看起来像：

[("APPLE",["BANANA","PEAR"]),("ANANAS",["BANANA","APPLE"])]

Answer 1

我使用以下方法解决了它：

map (\(x, y) -> (x, filter (/=x) y)) list