Benchmark (benchmark.Benchmark)

type t = {

wall : float;
utime : float;
stime : float;
cutime : float;
cstime : float;
iters : Int64.t;
minor_words : float;
major_words : float;
promoted_words : float;

}

type style =

| No_child
| No_parent
| All
| Auto
| Nil

val make : Int64.t -> t

val add : t -> t -> t

val sub : t -> t -> t

val to_string : ?style:style -> ?fwidth:int -> ?fdigits:int -> t -> string

type samples = (string * t list) list

val merge : samples -> samples -> samples

val throughputN : 
  ?min_count:Int64.t ->
  ?style:style ->
  ?fwidth:int ->
  ?fdigits:int ->
  ?repeat:int ->
  int ->
  (string * ('a -> 'b) * 'a) list ->
  samples

val throughput1 : 
  ?min_count:Int64.t ->
  ?style:style ->
  ?fwidth:int ->
  ?fdigits:int ->
  ?repeat:int ->
  int ->
  ?name:string ->
  ('a -> 'b) ->
  'a ->
  samples

val latencyN : 
  ?min_cpu:float ->
  ?style:style ->
  ?fwidth:int ->
  ?fdigits:int ->
  ?repeat:int ->
  Int64.t ->
  (string * ('a -> 'b) * 'a) list ->
  samples

val latency1 : 
  ?min_cpu:float ->
  ?style:style ->
  ?fwidth:int ->
  ?fdigits:int ->
  ?repeat:int ->
  Int64.t ->
  ?name:string ->
  ('a -> 'b) ->
  'a ->
  samples

val tabulate : ?no_parent:bool -> ?confidence:float -> samples -> unit

val print_gc : samples -> unit

module Tree : sig ... end