fix naming

This commit is contained in:
Fabian 2020-04-19 17:46:00 +02:00
parent d72907302a
commit a1233392f0

View file

@ -804,11 +804,11 @@ module Iter_ = struct
let bench_fold n =
let iter () = Iter.fold (+) 0 Iter.(0 --n) in
let gen () = Gen.fold (+) 0 Gen.(0 -- n) in
let klist () = OSeq.fold (+) 0 OSeq.(0 -- n) in
let oseq () = OSeq.fold (+) 0 OSeq.(0 -- n) in
B.throughputN 3 ~repeat
[ "iter.fold", iter, ();
"gen.fold", gen, ();
"klist.fold", klist, ();
"oseq.fold", oseq, ();
]
let bench_flat_map n =
@ -823,7 +823,7 @@ module Iter_ = struct
)
in
B.throughputN 3 ~repeat
[ "sequence.flat_map", iter, ();
[ "iter.flat_map", iter, ();
"gen.flat_map", gen, ();
"oseq.flat_map", oseq, ();
]