Add zero location Xt benchmark

polytypic · polytypic · commit 6f850f969a61 · 2023-12-26T14:26:11.000+02:00
diff --git a/bench/bench_xt.ml b/bench/bench_xt.ml
@@ -41,4 +41,5 @@ let run_one ?(n_locs = 2) ?(factor = 1)
     ]
 
 let run_suite ~factor =
-  [ 1; 2; 4; 8 ] |> List.concat_map @@ fun n_locs -> run_one ~n_locs ~factor ()
+  [ 0; 1; 2; 4; 8 ]
+  |> List.concat_map @@ fun n_locs -> run_one ~n_locs ~factor ()

Original file line number	Diff line number	Diff line change
`@@ -41,4 +41,5 @@ let run_one ?(n_locs = 2) ?(factor = 1)`
`41`	`41`	`]`
`42`	`42`
`43`	`43`	`let run_suite ~factor =`
`44`		`- [ 1; 2; 4; 8 ] \|> List.concat_map @@ fun n_locs -> run_one ~n_locs ~factor ()`
	`44`	`+ [ 0; 1; 2; 4; 8 ]`
	`45`	`+ \|> List.concat_map @@ fun n_locs -> run_one ~n_locs ~factor ()`