zakarya/puzzles
1
0
Fork 0
mirror of git://git.tartarus.org/simon/puzzles.git synced 2025-04-20 23:51:29 -07:00
Code Issues Packages Projects Releases Wiki Activity

Add sorting-order buttons to the benchmark output.

Browse Source 
Since I'm committed to HTML5ish Javascript already, that shouldn't be
too much of an inconvenience.
This commit is contained in:
Simon Tatham
2015-05-18 16:39:12 +01:00
parent 894921015d
commit fb0ff8c338
1 changed files with 44 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
benchmark.pl
View File

@ -125,20 +125,62 @@ function initPlots() {
ctx.stroke();
}
}
document.getElementById('sort_orig').onclick = function() {
sort(function(e) {
return parseFloat(e.getAttribute("data-index"));
});
};
document.getElementById('sort_median').onclick = function() {
sort(function(e) {
return -parseFloat(e.getAttribute("data-median"));
});
};
document.getElementById('sort_mean').onclick = function() {
sort(function(e) {
return -parseFloat(e.getAttribute("data-mean"));
});
};
}
function sort(keyfn) {
var rows = document.getElementsByTagName("tr");
var trs = [];
for (var i = 0; i < rows.length; i++)
trs.push(rows[i]);
trs.sort(function(a,b) {
var akey = keyfn(a);
var bkey = keyfn(b);
return akey < bkey ? -1 : akey > bkey ? +1 : 0;
});
var parent = trs[0].parentElement;
for (var i = 0; i < trs.length; i++)
parent.removeChild(trs[i]);
for (var i = 0; i < trs.length; i++)
parent.appendChild(trs[i]);
}
//]]>
</script>
</head>
<body onLoad="initPlots();">
<h1 align=center>Puzzle generation-time benchmarks</h1>
<p>Sort order:
<button id="sort_orig">Original</button>
<button id="sort_median">Median</button>
<button id="sort_mean">Mean</button>
<table>
<tr><th>Preset</th><td><canvas width=700 height=30 data-points='"scale"' data-scale="$maxval"></td></tr>
EOF
my $index = 0;
for my $preset (@presets) {
print "<tr><td>", &escape($preset), "</td><td><canvas width=700 height=15 data-points=\"[";
print join ",", sort { $a <=> $b } @{$presets{$preset}};
my @data = sort { $a <=> $b } @{$presets{$preset}};
my $median = ($#data % 2 ?
($data[($#data-1)/2]+$data[($#data+1)/2])/2 :
$data[$#data/2]);
my $mean = 0; map { $mean += $_ } @data; $mean /= @data;
print "<tr data-index=\"$index\" data-mean=\"$mean\" data-median=\"$median\"><td>", &escape($preset), "</td><td><canvas width=700 height=15 data-points=\"[";
print join ",", @data;
print "]\" data-scale=\"$maxval\"></td></tr>\n";
$index++;
}
print <<EOF;