X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fparallel%2Favg-RTS.pl;fp=utils%2Fparallel%2Favg-RTS.pl;h=4f25d55f8083ea5c82dbefeb847273154346b58a;hb=0065d5ab628975892cea1ec7303f968c3338cbe1;hp=0000000000000000000000000000000000000000;hpb=28a464a75e14cece5db40f2765a29348273ff2d2;p=ghc-hetmet.git

diff --git a/utils/parallel/avg-RTS.pl b/utils/parallel/avg-RTS.pl
new file mode 100644
index 0000000..4f25d55
--- /dev/null
+++ b/utils/parallel/avg-RTS.pl
@@ -0,0 +1,15 @@
+#!/usr/local/bin/perl
+
+$n=0;
+$sum=0;
+$last=0;
+while (<>) {
+    next unless /^\d+/;
+    @c = split;
+    $sum += $c[0];
+    $last = $c[0];
+    $n++;
+}
+
+print "Average Runtimes: n=$n; sum=$sum; avg=" . ($sum/$n) . "; max=$last\n";
+