From 09817b236a256da7dd80a75ccbee24ee46258450 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Thu, 21 Mar 2013 18:55:12 +0100 Subject: [PATCH] update of Bench --- tests/benchs.ml | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/tests/benchs.ml b/tests/benchs.ml index 733e1e21..a2799c42 100644 --- a/tests/benchs.ml +++ b/tests/benchs.ml @@ -1,15 +1,15 @@ (** Benchmarking *) -(** {2 Sequence/Enum} *) +(** {2 Sequence/Gen} *) let _ = let n = 1_000_000 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 [ "sequence.fold", seq; - "enum.fold", enum; + "gen.fold", enum; ] let _ = @@ -20,13 +20,13 @@ let _ = let seq = flatMap (fun x -> int_range ~start:x ~stop:(x+10)) seq in fold (+) 0 seq in let enum () = - let open Enum in + let open Gen in let seq = int_range 0 n in let seq = flatMap (fun x -> int_range x (x+10)) seq in fold (+) 0 seq in Bench.bench [ "sequence.flatMap", seq; - "enum.flatMap", enum; + "gen.flatMap", enum; ] (** {2 Cache} *)