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视为一种在这种情况下毫无意义的模式.