预定义列表 F# 的总和

Question

我是 F# 初学者，目前在 BlackJack F# 实现中尝试一些 Lists 操作。

我正在尝试总结我创建的列表的元素，如下所示：

let cardsvalue (k: Cards): List<int> =
    match k with
    |Ace ->  [1;11]
    |Two -> [2] 
    |Three -> [3]
    |Four -> [4]
    |Five -> [5]
    |Six -> [6]
    |Seven -> [7]
    |Eight -> [8]
    |Nine -> [9]
    |Ten | Jack | Queen | King -> [10] 

type Cards 只是二到九、十到国王和王牌的组合。

所以我需要某种递归函数 CardPoints，它只是添加来自 cardsvalue 的项目，例如 [Two; Three] = [5] 或 [Ace; Ace; Ace] = [3; 13; 23; 33] 表示 Ace 的所有可能值。我尝试了几种常见的求和方法，但我总是以类型不匹配或不支持运算符错误而告终。例如

let rec CardPoints (cp: List<Cards>): List<int> =   
   match cp with
   | head :: tail -> head + CardPoints tail
   | [] -> 0 

不接受 + 运算符。

我很想看到这个问题的可能实现。感谢您的宝贵时间！

Answer 1

我是 F# 初学者

您的代码显示了一种很好的系统化方法，并且您已经完成了大部分工作以允许类型系统（和智能感知）帮助解决您的问题。

let cardsvalue (k: Cards): List<int> =

具有完全正确类型签名的有用函数。请注意，它是灰色的。这意味着你没有使用它。

let rec CardPoints (cp: List<Cards>): List<int> =

也完全正确。您正在为类型系统提供尽可能多的帮助，这几乎可以肯定它会发现出现问题的确切点。

我总是以类型不匹配或不支持操作员错误告终。例如

    | head :: tail -> head + CardPoints tail

尝试使用绑定来帮助解决这个问题：

    | head :: tail ->
        let tailPoints = CardPoints tail
        head + tailPoints

您可以告诉（通过将鼠标悬停在它们上面）head 是 Cards 和 tailPoints 是 List<int>。因此，您尝试将Cards 添加到List<int> 并且没有定义这样的添加操作。

因此，您已将其简化为一项较小的任务：给定一张卡片 (head: Cards)，并从剩余卡片中给出可能的积分 (tailPoints: List<int>)，您如何从所有卡片中找到可能的积分，哪个应该是List<int>？您将需要使用您当前未使用的功能cardsvalue 和另一个小步骤，然后您就在那里了。

Answer 2

好的，你的答案非常接近。 但是您正在尝试将“卡”添加到整数列表中。 您要做的是获取卡片的每个可能值并将其添加到其余卡片总和的每个可能值中。

好的，我可能不会这样做，但也许这是最容易理解的答案（假设你理解列表推导）。

它在功能上也不是很完美，但我会留给你去发现和修复。

let rec cardPoints (cp: List<Card>): List<int> =   
   match cp with
   | head :: tail -> 
        [ for val1 in cardsvalue head do
            for val2 in cardPoints tail do 
                val1 + val2 ]
   | [] -> [0]