5 lines
235 B
Standard ML
5 lines
235 B
Standard ML
val seed = 0w42;
|
|
val gen = Rand.mkRandom seed;
|
|
fun random_gaussian () =
|
|
1.0 + Math.sqrt (~2.0 * Math.ln (Rand.norm (gen ()))) * Math.cos (2.0 * Math.pi * Rand.norm (gen ()));
|
|
val a = List.tabulate (1000, fn _ => random_gaussian ());
|