f# - F# List.Map 使用随机数

Question

我想创建一个包含 20 个随机数的列表。我写了这个：

let numberList = [ 1 .. 20 ] 
let randoms = 
    numberList 
    |> List.map (fun (x) -> System.Random().Next(0,9)) 

我得到了这个：

val numberList : int list =
  [1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 17; 18; 19; 20]
val randoms : int list =
  [7; 7; 7; 7; 7; 7; 7; 7; 7; 7; 7; 7; 7; 7; 7; 7; 7; 7; 7; 7]

这是有道理的。问题是我想在每次评估函数时传入一个随机数，如下所示：

let numberList = [ 1 .. 20 ] 
let randoms = 
    numberList 
    |> List.map (fun (Random().Next(0,9)) -> x) 

但我得到一个“模式鉴别器'随机'未定义”异常。

我以错误的方式解决这个问题吗？提前致谢

Answer 1

在您的原始版本中，您在每次迭代时创建一个新的 Random 对象。由于这是用当前时间播种的，因此您始终创建相同的序列。

您需要像这样在地图外创建对象

let RNG = new System.Random()
numberlist |> List.map (fun x -> RNG.Next(0,9))

虽然更优雅的解决方案是

let RNG = new System.Random()
let randoms = List.init 20 (fun _ -> RNG.Next(0,9))

您的第二个版本失败了，因为您试图将 Random 视为在这种情况下没有意义的模式。