Module Primus_wandering_main.Make

Parameters

module Random : sig ... end

Signature

module Generate : sig ... end
val attempts : int

a number of attempts to pick a live state before the next draw.

type 'a m = 'a Machine.t
val drop : Core_kernel.Int.Map.Key.t -> t -> t
val reschedule : int -> t -> t Machine.t

reschedule n s performs n attempts to choose a live clone, from the contestants. If nothing was chosen, then draws a new party of contestants and starts again.

The algorithm is guaranteed to terminate since it is guaranteed that there is at least one live state, called the global state.

Note, a winner - the clone that was chosen, is removed from the draw.

val schedule : t -> t Machine.t
val step : 'a -> unit Machine.t
val init : unit -> unit Machine.t