#! /usr/bin/env perl

# experiment 01: unbunched version, measure time & performance for different hit
# counts 
do "../common.pl";

# test parameters
$step = 4000;
$ntries = 5;

init_exp();

#output file
$out_file = "./exp-01.csv";
open(CSV, ">", $out_file) or die "cannot open $out_file: $!";

for($nhits = $step; $nhits < $max_nhits; $nhits += $step) {
		run_test();
		$str = sprintf "%10d %10.4f %10.4f\n", $nhits, $avg_time, $perf;
		printf CSV "%s", $str;
		printf "%s", $str;
}

close CSV;