Parmap problem Johan Mazel

gistfile1.ml

open Printf

let main _ =

    Parmap.debugging true;
    let cores = 6 in
    let array1_length = 1000 in
    let array2_length = 100000 in
    let float_bound = 10.0 in
    print_endline "Building array1";
    let array1 =
      Array.init
        array1_length
        (fun indice ->
          Array.init array2_length (fun indice -> Random.float float_bound))
    in
    print_endline "array1 built";
    print_endline "Sleeping";
    Unix.sleep 10;
    print_endline "Parmap";
    let f =
      (fun array ->
        (Array.map
           (fun float -> float +.Random.float float_bound)
           array))
    in
    let new_array1 =
      Parmap.array_parmap
        ~ncores: cores
        f
        array1
    in
    print_endline
      (sprintf
         "new_array1 length: %d"
         (Array.length new_array1));