added benchmark results

2026-09-28 08:18:13 +08:00 · 2017-08-01 15:12:49 -04:00
parent 0c563e1868
commit 9306299e4d
8 changed files with 254 additions and 0 deletions
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Getopt::Std;
+
+my %opts = (n=>33088);
+getopts('n:', \%opts);
+
+my $pseudo = .5;
+my $tot = $pseudo;
+my $err = $pseudo;
+while (<>) {
+	chomp;
+	if (/^Q\t(\d+)\t(\d+)\t(\d+)/) {
+		$tot += $2;
+		$err += $3;
+		print join("\t", $1, $err/$tot, $tot / $opts{n}), "\n";
+	}
+}