Initial checkin for typhoon chess engine.

1 files changed, 70 insertions, 0 deletions

diff --git a/src/suite_rep.pl b/src/suite_rep.pl
new file mode 100755
index 0000000..4294394
--- /dev/null
+++ b/src/suite_rep.pl
@@ -0,0 +1,70 @@
+#!/usr/bin/perl
+
+$NUM_BINS = 20;
+
+
+$max_bin = 0;
+open(LOG, $ARGV[0]) || die "Can't open $ARGV[0], $!\n";
+while(<LOG>)
+{
+    if ($_ =~ /^Problem \"([^\"]+)\" solved in (\d+\.\d+)/)
+    {
+        $name = $1;
+        $time = $2;
+    }
+    elsif ($_ =~ /^>>>>> Problem \"([^\"]+)\" was not solved\. <<<<</)
+    {
+        $name = $1;
+        $time = -1;
+    }
+
+    if ($name ne "")
+    {
+        if ($name =~ /[^\.]+\.(\d+)/)
+        {
+            $name = $1;
+        }
+        if ($time != -1)
+        {
+            $sec_per = 20.0 / $NUM_BINS;
+            $bin_num = $time / $sec_per;
+            $bin_num++;
+            $bin_num = int($bin_num);
+        }
+        else
+        {
+            $bin_num = 0;
+        }
+
+        if (!defined($bin[$bin_num]))
+        {
+            $bin[$bin_num] = 0;
+        }
+        $bin[$bin_num]++;
+        $ids[$bin_num] .= " " . $name;
+        if ($bin[$bin_num] > $max_bin)
+        {
+            $max_bin = $bin[$bin_num];
+        }
+        $name = "";
+        $time = 0;
+    }
+}
+close(LOG);
+
+
+for ($x = 1;
+     $x < $NUM_BINS + 1;
+     $x++)
+{
+    $num_star = $bin[$x] / $max_bin * 60;
+    $num_star = int($num_star);
+    printf "%02u..%02u sec: %s ($bin[$x])\n", $x-1, $x, "#" x $num_star;
+    print  "\n       ids: $ids[$x]\n\n";
+}
+$num_star = $bin[0] / $max_bin * 60;
+$num_star = int($num_star);
+printf "not solved: %s ($bin[0])\n", "#" x $num_star;
+print  "\n       ids: $ids[0]\n\n";
+
+