simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

update of Bench

Browse source
This commit is contained in:
Simon Cruanes 2013-03-21 18:55:12 +01:00
parent 0af36e124e
commit 09817b236a
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tests/benchs.ml
View file

@ -1,15 +1,15 @@
(** Benchmarking *) (** Benchmarking *)
(** {2 Sequence/Enum} *) (** {2 Sequence/Gen} *)
let _ = let _ =
let n = 1_000_000 in let n = 1_000_000 in
let seq () = Sequence.fold (+) 0 (Sequence.int_range ~start:0 ~stop:n) in let seq () = Sequence.fold (+) 0 (Sequence.int_range ~start:0 ~stop:n) in
let enum () = Enum.fold (+) 0 (Enum.int_range 0 n) in let enum () = Gen.fold (+) 0 (Gen.int_range 0 n) in
Bench.bench Bench.bench
[ "sequence.fold", seq; [ "sequence.fold", seq;
"enum.fold", enum; "gen.fold", enum;
] ]
let _ = let _ =
@ -20,13 +20,13 @@ let _ =
let seq = flatMap (fun x -> int_range ~start:x ~stop:(x+10)) seq in let seq = flatMap (fun x -> int_range ~start:x ~stop:(x+10)) seq in
fold (+) 0 seq in fold (+) 0 seq in
let enum () = let enum () =
let open Enum in let open Gen in
let seq = int_range 0 n in let seq = int_range 0 n in
let seq = flatMap (fun x -> int_range x (x+10)) seq in let seq = flatMap (fun x -> int_range x (x+10)) seq in
fold (+) 0 seq in fold (+) 0 seq in
Bench.bench Bench.bench
[ "sequence.flatMap", seq; [ "sequence.flatMap", seq;
"enum.flatMap", enum; "gen.flatMap", enum;
] ]
(** {2 Cache} *) (** {2 Cache} *)