Parallel float array initialization

array-init.ml

module T = Domainslib.Task
let n = try int_of_string Sys.argv.(2) with _ -> 10000
let cs = try int_of_string Sys.argv.(3) with _ -> 32
let num_domains = try int_of_string Sys.argv.(1) with _ -> 4

let _ =
  let arr = Array.create_float n in
  (*init with random number*)
  let pool = T.setup_pool ~num_domains:(num_domains - 1) in
  T.parallel_for pool ~chunk_size:cs ~start:0 ~finish:(pred n) ~body:(fun i ->
    Domain.Sync.poll ();
    Array.unsafe_set arr i (Random.float 100.)
    );
  Printf.printf "%d" (Array.length arr);
  T.teardown_pool