Function 如何调用元组列表的和？

我制作了一个元组列表，但似乎找不到列表的总和。我是否需要为总和创建一个函数，或者我可以调用总和代码中的每个列表

fst

snd

let (startBoard : board) = ([0; 3; 3; 3; 3; 3], [0; 3; 3; 3; 3; 3])

如何找到列表的总和？我试图创建一个求和函数，并调用

fst

和

snd

，但似乎无法使其工作

let sum1 (fst : int list) : int = 
let s = List.sum fst

---

希望我能说清楚：）

fst

是一个内置函数，返回大小为2的元组的第一项。您的示例

sum1

函数将其第一个参数命名为

fst

，这可能不是您想要的

试着这样做：

let sum1 (startBoard : board) = List.sum (fst startBoard)

利用咖喱的力量，这可以缩短：

let sum1 = List.sum << fst

---

let sum1=List.sum不确切知道“board”类型是什么，但这应该是可行的

let sum (b: board) = List.sum (fst b), List.sum (snd b)