Question

我的名单上有两les。例如:[(A”、“100”、“B”、“50、3)]。我需要把每一图的第二和第三部分合并起来,总和显示。例如:

100* 2 = 200 (add this to a variable),
50* 3 = 150 (add this to the same variable),
Grant total = 350 (I want to display only this).

如果有人能够向我提出解决办法,那将给我带来巨大帮助。

Answer 1

foldl (a (x, y, z) -> a + y*z) 0 [("A", 100, 2), ("B", 50, 3)]

(0 + 100 * 2) + 50 * 3)

Answer 2

λ> sum $ map ((_,y,z) -> y*z ) [("A",100,2),("B",50,3)]
350

<>UPD:试图添加一些解释

因此,我们有一个图形<代码>(“A”),100,2)。我们需要获得第二和第三部分的产品? anonymous function 。

λ> ((x,y,z) -> y*z) ("A",100,2)
200

X是无法使用的,因此我们能够通过。

λ> ((_,y,z) -> y*z) ("A",100,2)
200

λ> map ((_,y,z) -> y*z) [("A",100,2),("B",50,3)]
[200,150]

最后一点是找到<代码>[Int] 和sum/a。

λ> sum (map ((_,y,z) -> y*z) [("A",100,2),("B",50,3)])
350

We can use $(function application) instead of parentheses.

λ> sum $ map ((_,y,z) -> y*z) [("A",100,2),("B",50,3)]
350

Done。

Answer 3

采用核对清单:

*Main> let tuples = [("A",100,2),("B",50,3)]
*Main> sum [x*y | (_,x,y) <- tuples]
350

Answer 4

import Data.List (foldl )
sum_tuple_products = (foldl  (+) 0) . map ((_, y, z) -> y * z)

您可以这样看待这一守则:map, first transformations list of tuples (x, y, z) into a list of products y * z, 然后将 pagesl添加该清单的所有内容。



*Main> sum_tuple_products [("a", 100, 2), ("B", 50, 3)]
350

Answer 5

doit = foldr ((_,b,c) acc -> b*c + acc) 0