RandomList

open System.Threading
let randomNumber x =
  Thread.Sleep(1)
  (new System.Random()).Next(1, x)

let randomIndividual x =
  [for _ in 1..x -> randomNumber x]

let randomPopulation count size =
  [for _ in 1..count -> randomIndividual size]

let printPopulation population =
  population |>
  List.iter (fun x -> printf "%A\n" x)

printPopulation (randomPopulation 10 8)