open System

open MathNet.Numerics.Random

​

​

//Source: https://mathnetnumerics.codeplex.com/wikipage?title=Random%20Numbers

​

let GenTenRandomNumbers (randomGenerator : System.Random) =

  printfn "%s" (randomGenerator.ToString()) 

  for i = 1 to 10 do

    let a = randomGenerator.Next(1, 10);

    printfn "%d" a

​

  printfn "==================="

//Default .NET Random number generator

GenTenRandomNumbers(new System.Random())

​

//MersenneTwister: Mersenne Twister 19937 generator

GenTenRandomNumbers(new MersenneTwister())

​

//Xorshift: Multiply-with-carry XOR-shift generator

GenTenRandomNumbers(new Xorshift())

​

//Mcg31m1: Multiplicative congruental generator using a modulus of 2^31-1 and a multiplier of 1132489760

GenTenRandomNumbers(new Mcg31m1())

​

//Mcg59: Multiplicative congruental generator using a modulus of 2^59 and a multiplier of 13^13

GenTenRandomNumbers(new Mcg59())

​

//WH1982: Wichmann-Hill's 1982 combined multiplicative congruental generator

GenTenRandomNumbers(new WH1982())

​

//WH2006: Wichmann-Hill's 2006 combined multiplicative congruental generator

GenTenRandomNumbers(new WH2006())

​

//Mrg32k3a: 32-bit combined multiple recursive generator with 2 components of order 3

GenTenRandomNumbers(new Mrg32k3a())

​

//Palf: Parallel Additive Lagged Fibonacci generator

GenTenRandomNumbers(new Palf())

​

//SystemCryptoRandomNumberGenerator: Generator using the RNGCryptoServiceProvider of the .Net framework.

GenTenRandomNumbers(new SystemCryptoRandomNumberGenerator())