OCaml变量,它在函数调用之间保持它的值

Question

在OCaml中是否有一种方法可以使函数内部的变量在函数调用之间保持其值？它应该像Pythons默认参数一样工作,它是在每个函数调用中对同一个对象的引用,或者函数应该是yield而不是显式返回一个值.效果应该如下(如果函数是返回自然数):

foo ();;
0
foo ();;
1

Answer 1

是的,这是可能的.你需要定义闭包的局部ref 外部并访问它的值,并在每次使用闭包时修改它,如下所示:

let foo =
  (* local variable x *)
  let x = ref 0 in
  (* the closure that will be named foo *)
  fun () -> let r = !x in
            x := r+1; r