删除元组中的第二个元素

Question

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

[ [(1,True),(2,True)] , [(3,False),(4,False),(5,False)] ]

我的目标是让[1,2,3,4,5]摆脱困境。

我尝试使用 map 和 filter 删除所有 Bool 但 filter 也删除了元组。如果我可以删除每个元组中的 Bool ，那么我可以使用循环将每个元组的 fst 分配给新的空列表吗？

Answer 1

f :: [[(a, b)]] -> [a]
f = concatMap (map fst)

那么 f [ [(1,True),(2,True)] , [(3,False),(4,False),(5,False)] ] 是 [1 ,2,3,4,5]。

Answer 2

或者使用列表理解：

f xss = [fst x | xs <- xss, x <- xs]

Answer 3

试试这个（已编辑，感谢 Michael Kohl 和 pat 的评论）：

fun :: [[(a,b)]] -> [a]
fun = map fst . concat

然后在 GHC 中：

*Main> let l = [ [(1,True),(2,True)] , [(3,False),(4,False),(5,False)] ]
[[(1,True),(2,True)],[(3,False),(4,False),(5,False)]]
*Main> fun l
[1,2,3,4,5]

Answer 4

foldl1 (\acc x -> acc ++ x)  [a | b <- lst, let a =  map fst b]