F# 将 Seq 的每个元素分别附加到另一个元素，然后对每个元素应用一个函数

Question

我有两个序列，一个叫做 Hand 有 5 个元素，另一个叫做 Deck，有一些 n 大小。我需要首先将 Deck 的第一个元素附加到 Hand（创建大小为 6 的新 Seq）然后在该新序列上运行一个函数以获得分数，例如 50。然后我需要将 Deck 的第二个元素附加到 Hand （再次是大小为 6 的新 Seq）并运行该函数以获得 25 分。

这需要对 Deck 中的所有元素都进行，这样我就有了一堆分数。这些分数是否保存到列表中或以其他方式保存都没有关系。然后我需要找到所有这些结果的平均值并返回该值。

这是我所追求的伪代码示例-

Hand = {S2; C5; HK; D9; C1}, Deck = {...a bunch of cards...}
score[0] = CalcScore (Hand.append Deck[0])  //e.g. CalcScore ({S2; C5; HK; D9; C1; HJ})
score[1] = CalcScore (Hand.append Deck[1])  //e.g. CalcScore ({S2; C5; HK; D9; C1; D2})
score[n] = CalcScore (Hand.append Deck[n])  //e.g. CalcScore ({S2; C5; HK; D9; C1; SQ})

return averageScore = score.average

我知道如果我可以创建一个包含每个单独分数的列表或序列，我可以使用 Seq.average/List.average 但我不确定如何通过附加和运行函数来完成第一部分分别为每个元素保存该值。

我很难理解如何创建高阶函数，而且 F# 对我来说是新事物，与我所掌握的少数几种语言完全不同。

任何指导或信息都会有很大帮助，谢谢！

Answer 1

首先，编写一个函数来计算给定要附加的卡片的分数：

let scoreWithAppendedCard card =
   CalcScore (Seq.append Hand [card])

太棒了！现在对牌组中的每张牌都这样做：

let allScores = Deck |> Seq.map scoreWithAppendedCard

现在剩下的就是计算平均值：

let averageScore = Seq.average allScores

或者您可以一次性完成所有操作，而无需命名中间值：

let averageScore =
   Deck 
   |> Seq.map (fun card -> CalcScore (Seq.append Hand [card]))
   |> Seq.average