random - OCaml : exception Invalid_argument ("Random.int")? 的解决方法是什么

Question

我有这段代码:

let rec random_list = function
  | 0 -> []
  | n -> ( Random.int max_int ) :: ( random_list (n-1) )

它可以编译，但是当我执行它时，会出现此错误:

exception Invalid_argument("Random.int")

这个问题的解决方法是什么？

Answer 1

documentation说:

Random.int bound returns a random integer between 0 (inclusive) and bound (exclusive). bound must be greater than 0 and less than 2^30.

所以最接近你想要的是:

let my_max_int = (1 lsl 30) - 1 in
Random.int my_max_int

正如 gsg 建议的那样，使用 Random.bits ()更清洁以获得几乎相同的结果(它也可以返回 2^30 - 1 )。

如果你真的想得到任何正的 native 整数，也许你可以使用 Random.nativeint ，但这意味着您必须使用模块 Nativeint和 Nativeint.t而不是 int .