F#：如何处理元组列表？

Question

我正在做家庭作业。而且我正在尝试学习 F#，所以除了使用 List.Map 或 lambdas 之类的基本东西之外，我不想要任何快捷方式。 我正在尝试处理元组列表，但在访问列表中的元组时遇到问题。 我想获取元组列表，将每个元组中的数字相加，然后返回该数字，每次都打印出来。

let listTup = [(2,3,4); (4,5,6); (6,7,8)]

let getSum (a,b,c) =
    a+b+c

let rec printSum tpList =
let total = 0
match tpList with
| [] -> total //return 0 if empty list
| hd::tl -> 
    print (getSum hd)

Answer 1

您要做的第一件事是通过getSum 函数映射您的元组。这可以通过将元组列表传递到List.map getSum 来非常简单地完成。然后您想打印列表中的每个元素，因此您使用函数printfn "%d" 将List.map getSum 的结果通过管道传输到List.iter。这是因为函数具有咖喱参数。 printfn "%d" 将"%d" 参数应用于printfn 并返回一个采用整数的函数，然后将其打印出来。整个事情看起来像这样：

let listTup = [(2,3,4); (4,5,6); (6,7,8)]

let getSum (a,b,c) =
    a + b + c

let printSum tpList =
    tpList |> List.map getSum |> List.iter (printfn "%d")

打印出来：

9
15
21

如果我们利用函数组合（>> 运算符），我们甚至可以进一步简化函数。请注意，printSum 将tpList 作为其参数，然后仅将其用作流水线连接在一起的两个函数的输入。由于流水线只是获取一个函数的输出并将其作为另一个函数的最后一个参数传递，所以我们真正需要做的就是编写函数List.map getSum，它接受一个int 三元组列表并返回一个ints 和 List.iter (printfn "%d")，它采用 ints 的列表并返回单位。看起来像这样：

let printSum = List.map getSum >> List.iter (printfn "%d")

这将打印相同的结果，但表达函数的方式更简单。

Answer 2

F# 也有命令式循环。在这种情况下，我认为命令式循环最符合问题。

let listTup = [(2,3,4); (4,5,6); (6,7,8)]
for a,b,c in listTup do
  let sum = a + b + c
  printfn "%d" sum