f# - 在 F# 中强制对函数进行多次计算

Question

我正在尝试在 F# 中开发一个随机数“生成器”。

我成功创建了以下函数:

let draw () =
    let rand = new Random()
    rand.Next(0,36)

这很好用，它会生成一个 0 到 36 之间的数字。

但是，我正在尝试创建一个多次运行此函数的函数。

我尝试了以下

let multipleDraws (n:int) =
    [for i in 1..n -> draw()]

但是，我只得到一个结果，如 draw在 for comprehension 中只计算一次。

我怎么能强制多次执行 draw功能？

Answer 1

问题在于 Random 类型。它使用计算机的时间来生成种子，然后生成随机数。由于实际上调用的时间是相同的，因此生成了相同的种子，因此返回的数字也是相同的。

这将解决您的问题:

let draw =
    let rand = new Random()
    fun () ->
    rand.Next(0,36)

进而:

let multipleDraws (n:int) =
    [for i in 1..n -> draw()]