functional-programming - 陷入一个函数的无限循环

Question

我在这个函数中陷入了无限循环:

let rec showGoatDoorSupport(userChoice, otherGuess, aGame) =                                       
    if( (userChoice != otherGuess) && (List.nth aGame otherGuess == "goat") ) then otherGuess
    else showGoatDoorSupport(userChoice, (Random.int 3), aGame);;

这是我调用函数的方式:

showGoatDoorSupport(1, 2, ["goat"; "goat"; "car"]);             

在函数的第一个条件中，如果不同，我比较前 2 个输入参数(1 和 2)，并且如果索引“otherGuess”的列表中的项目不等于“goat”，我想返回那个别人猜。

否则，我想使用 0-2 之间的随机数作为第二个输入参数再次运行该函数。

关键是继续尝试运行该函数，直到第二个参数不等于第一个参数，并且列表中的插槽不是“山羊”，然后返回该插槽编号。

Answer 1

不要使用 == ，它检查物理相等性。使用 = .两个不同的字符串在物理上永远不会相等，即使它们包含相同的字符序列。 (这是必要的，因为字符串在 OCaml 中是可变的。)

$ ocaml
        OCaml version 4.00.0

# "abc" == "abc";;
- : bool = false
# "abc" = "abc";;
- : bool = true