总结一个元组列表

Question

我有一个包含整数的元组列表.

[(123,123,123),(123,123,123),(123,123,123)]

我想得到列表中所有第二个值的总和,例如;

[(_,123,_),(_,123,_),(_,123,_)]

123 + 123 + 123

我想我应该使用折叠,但我不确定

Answer 1

从元组列表列表中提取第二个值以获取新列表,然后对新列表求和.

Prelude> let a = [(123,123,123),(123,123,123),(123,123,123)]
Prelude> sum [i | (_,i,_) <- a]