OCaml共享变量

Question

我希望创建两个函数：第一个函数生成一个新的整数，第二个函数重置生成器

let a = ref 0 in
    let f () = a := !a + 1 and  
    g () = a := 0; ();;

REPL在最后两个分号上显示“错误：语法错误”。

Answer 1

第二个let也需要后面跟一个in （请参阅手册 ），例如，

let inc, reset =
  let a = ref 0 in
  let f () = a := !a + 1; !a
  and g () = a := 0
  in (f, g);;

但是也许您想要更多这样的东西：

let new_counter () =
  let a = ref 0 in
  let f () = a := !a + 1; !a
  and g () = a := 0
  in (f, g);;