Comment utiliser les multicœurs dans Ocaml pour faire des simulations Monte Carlo?

Question

Ocaml processus ne peut utiliser qu'un seul noyau et afin d'utiliser plusieurs cœurs, je dois exécuter plusieurs processus. Y a-t-il des frameworks Ocaml à utiliser pour paralléliser les simulations Monte Carlo?

Answer 1

Actuellement, la seule façon de le faire est avec MPI, et vous pouvez trouver des liaisons ocaml pour cela sur Xavier Leroy's website.

Answer 2

Utilisez la invoke combinateur pour appliquer une fonction à une valeur dans un autre processus (fourchue), puis bloquer en attendant le résultat lorsque la valeur () est appliquée suivant:

let invoke (f : 'a -> 'b) x : unit -> 'b = 
    let input, output = Unix.pipe() in 
    match Unix.fork() with 
    | -1 -> (let v = f x in fun() -> v) 
    | 0 -> 
     Unix.close input; 
     let output = Unix.out_channel_of_descr output in 
     Marshal.to_channel output (try `Res(f x) with e -> `Exn e) []; 
     close_out output; 
     exit 0 
    | pid -> 
     Unix.close output; 
     let input = Unix.in_channel_of_descr input in 
     fun() -> 
      let v = Marshal.from_channel input in 
      ignore (Unix.waitpid [] pid); 
      close_in input; 
      match v with 
      | `Res x -> x 
      | `Exn e -> raise e