Extended.Benchmark
Additional functions for Christophe Troestler's Benchmark module.
Benchmark
Typical usage:
module Benchmark = struct include Benchmark include Extended.Benchmark (Benchmark) end
module Benchmark : BENCHMARK
val quick : ?n:int -> ('a -> 'b) list -> 'a -> unit
(quick ~n [f1;f2;f3] x) = (throughputN n ["1", f1, x; "2", f2, x; "3", f3, x] |> tabulate)
(quick ~n [f1;f2;f3] x)
(throughputN n ["1", f1, x; "2", f2, x; "3", f3, x] |> tabulate)