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

Vector push benchmark: Push all values to the same container

Browse source
This commit is contained in:
Fabian 2018-05-31 17:42:48 -05:00 • committed by Simon Cruanes
parent 35065393c5
commit 0c48cff2a1
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
benchs/run_benchs.ml
View file

@ -165,24 +165,24 @@ module L = struct
] ]
let bench_push ?(time=2) n = let bench_push ?(time=2) n =
let l = CCList.(0 -- (n - 1)) in let l = ref CCList.empty in
let ral = CCRAL.of_list l in let ral = ref CCRAL.empty in
let v = CCFun_vec.of_list l in let v = ref CCFun_vec.empty in
let bv = BatVect.of_list l in let bv = ref BatVect.empty in
let cv = Clarity.Vector.of_list l in let cv = ref Clarity.Vector.empty in
let map = List.fold_left (fun map i -> Int_map.add i i map) Int_map.empty l in let map = ref Int_map.empty in
let bench_map l () = let bench_map l () =
for i = 0 to n-1 do Sys.opaque_identity (ignore (Int_map.add i i l)) done for i = 0 to n-1 do Sys.opaque_identity (l := Int_map.add i i !l) done
and bench_ral l () = and bench_ral l () =
(* Note: Better implementation probably possible *) (* Note: Better implementation probably possible *)
for i = 0 to n-1 do Sys.opaque_identity (ignore (CCRAL.append l (CCRAL.return i))) done for i = 0 to n-1 do Sys.opaque_identity (l := CCRAL.append !l (CCRAL.return i)) done
and bench_funvec l () = and bench_funvec l () =
for i = 0 to n-1 do Sys.opaque_identity (ignore (CCFun_vec.push i l)) done for i = 0 to n-1 do Sys.opaque_identity (l := CCFun_vec.push i !l) done
and bench_batvec l () = and bench_batvec l () =
for i = 0 to n-1 do Sys.opaque_identity (ignore (BatVect.append i l)) done for i = 0 to n-1 do Sys.opaque_identity (l := BatVect.append i !l) done
and bench_clarity_vec l () = and bench_clarity_vec l () =
(* Note: Better implementation probably possible *) (* Note: Better implementation probably possible *)
for i = 0 to n-1 do Sys.opaque_identity (ignore (Clarity.Vector.append l (Clarity.Vector.pure i))) done for i = 0 to n-1 do Sys.opaque_identity (l := Clarity.Vector.append !l (Clarity.Vector.pure i)) done
in in
B.throughputN time ~repeat B.throughputN time ~repeat
[ "Map.add", bench_map map, () [ "Map.add", bench_map map, ()