在 F# 中创建复合迭代器

Question

我正在实现一个类似跳棋的游戏，并且我需要一个序列来枚举给定配置的所有合法动作。

我有以下函数，直接从 C# 翻译而来：

seq {
    for y1 = 0 to BOARDSIZE-1 do
        for x1 = 0 to BOARDSIZE-1 do
             for dy = -2 to 2 do
                 for dx = -2 to 2 do
                     let x2 = x1 + dx;
                     let y2 = y1 + dy;
                     let currentMove = new MoveStruct(x1, y1, x2, y2);
                     if (currentMove.SomeCondition = true) then
                             yield currentMove;
   }

它可以工作，但很尴尬，而且不完全是“F# 方式”，更不用说我偷偷怀疑我在这里所做的不是性能最佳的。

我想要的是将其“展平”为使用“迭代所有单元格”、“迭代此单元格的所有有效移动”组合的东西。

以下是我希望组合的功能：

let AllCells =
    seq {
        for y=0 to BOARDSIZE-1 do
            for x=0 to BOARDSIZE-1 do
                yield (x,y);
    };

我

let LegalMovesAround(x1,y1) = 
    seq {
      if board.[x1, y1] = WHITE then
        for dy = -2 to 2 do
          for dx = -2 to 2 do
                let x2 = x1 + dx;
                let y2 = y1 + dy;
                let currentMove = new MoveStruct(x1, y1, x2, y2);
                if (currentMove.DetermineMoveType <> MoveType.ILLEGAL 
                    && board.[x2, y2] = NONE) then
                        yield currentMove;
     }

将不向您详细介绍我为使其发挥作用而进行的各种尝试，因为它们都没有成功。但长话短说，我能想到的最好的办法是一个迭代器，它在每次收益时返回一个 seq，而不是我正在寻找的扁平化版本，它会返回一个简单的 MoveStruct。

有人知道如何结合 AllCells 和 LegalMovesAround(x,y) 吗？

问候， 亚历克斯

Answer 1

你可以使用产量！在新的序列表达式中：

let allLegalMoves = seq {
  for cell in AllCells do
    yield! LegalMovesAround cell
}

Answer 2

您知道yield!吗？

类似的东西

seq {
    for x,y in Allcells do
        yield! LMA(x,y)
}

Answer 3

您应该能够按原样组合它们，然后进行扁平化，如下所示：

 let validMoves = 
    AllCells 
    |> Seq.collect LegalMovesAround
    |> Seq.distinct

尽管从性能角度来看，这可能不是最好的解决方案。

编辑：根据托马斯评论修复了示例代码