QCaml/Parallel_serial/Farm.ml

(* Single process function *)
let run_sequential f stream =

  let next _ =
    try
      let task = Stream.next stream in
      Some (f task) 
    with Stream.Failure -> None in
    Stream.from next

let run ?(ordered=true) ?(comm) ~f stream =
  run_sequential f stream
Choosing MPI or not at configuration 2019-01-15 15:17:34 +01:00			`(* Single process function *)`
			`let run_sequential f stream =`

[@tailcall] statements 2019-09-10 18:39:14 +02:00			`let next _ =`
Choosing MPI or not at configuration 2019-01-15 15:17:34 +01:00			`try`
			`let task = Stream.next stream in`
			`Some (f task)`
			`with Stream.Failure -> None in`
			`Stream.from next`

4-idx node-only 2019-04-04 09:14:15 +02:00			`let run ?(ordered=true) ?(comm) ~f stream =`
Choosing MPI or not at configuration 2019-01-15 15:17:34 +01:00			`run_sequential f stream`