random - System.Random 产生相同的随机数

Question

尽管随机生成器只创建一次，但输出始终是相同的随机结果(对于所有三个测试输出)。

来自稍大脚本的测试片段:

   let myRandGen = System.Random()
   let getRandomObject = 
      let options = [|"Bob"; "Jim"; "Jane"|]
      let randIndex  = myRandGen.Next(options.Length) 
      options.[randIndex] 

   printfn "New one: %s" getRandomObject
   printfn "New two: %s" getRandomObject
   printfn "New three: %s" getRandomObject

我需要每次调用的输出都是随机的，而目前不是。

示例输出:

New one: Jane
New two: Jane
New three: Jane

Answer 1

您的 getRandomObject是一个值。它被评估一次。要解决此问题，请制作 getRandomObject一个功能:

let getRandomObject () = 
  let options = [|"Bob"; "Jim"; "Jane"|]
  let randIndex  = myRandGen.Next(options.Length) 
  options.[randIndex]

并像这样称呼它: getRandomObject ()