C# To F# 循环以返回值

本文关键字：返回值 循环 To | 更新日期: 2023-09-27 18:33:27

如何在 f# 中编写此代码

 int IAI.AIMove()
    {
        for (int i = 0; i <= 8; i++)
            if (cBoard.getPlayer(i) == 0)
                return i;
        return 0;
    }

这就是我所拥有的

member this.AIMove()=
      let result =  int in
        for i in 1 .. 8 do
            if cboard.getPlayer(i)=0 then
               result := Some i

[错误]此表达式应具有 int 类型，但此处具有类型单位

C# To F# 循环以返回值

虽然可以逐行将 C# 代码重写为 F#，但以这种方式不会真正获得 F# 的优雅。我建议先解决一些非常简单的问题（比如使用列表），然后再考虑如何将项目设计得更实用一些。

要回答您的问题，您可以使用List.tryFind而不是循环和突变：

let idx = [ 0 .. 8 ] |> List.tryFind (fun i -> cBoard.getPlayer(i) = 0)

这将生成一个包含从 0 到 1 的数字的列表，然后返回第一个数字，以便给定的谓词返回 true。它的行为与您的代码略有不同 - 它返回option<int>如果未找到值，则返回None，或者在找到值时返回Some(i)。

使用选项和模式匹配可能是一个好主意，但如果未找到值，则可以使用 defaultArg idx 0 返回 0。

type Board =
    member x.getPlayer (i: int) = 0 // Just a stub to allow typechecking
let move (cBoard: Board) =
    let isZero x = x = 0
    let found = seq { 0 .. 8 } |> Seq.tryFind (cBoard.getPlayer >> isZero)
    defaultArg found 0

如果你坚持保留你的代码 C#'ish：

member this.AIMove () : int option =
  let result = ref None
  for i in 1 .. 8 do
    if cboard.getPlayer(i)=0 then
      result := Some i
  match !result with
  | Some i -> i
  | None -> 0
相关文章：