總結元組列表

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] 

Answer 2

我認爲你是在正確的軌道上。我想這和它似乎工作：

sumSecondTuple list = foldl (\acc (x, y, z) -> (+) y acc) 0 list 

此說，開始爲0的值，則累計值的元組(x, y, z)在list添加到y值的所有項目。

Answer 3

如果你不怕鏡頭（進口Control.Lens）一種解決方案是

sumsnds = sum . toListOf (traverse . _2) 

這將總和值在列表你當你遍歷列表元組，並挑出每個元組中的秒值。