F#List.Map使用随机数

时间:2013-09-19 01:02:11

标签: f#

我想创建一个包含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) 

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

我是否以错误的方式接近这个问题? 提前致谢

1 个答案:

答案 0 :(得分:6)

在原始版本中,您将在每次迭代时创建一个新的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视为一种在这种情况下毫无意义的模式。