From 3fd43cd5fcb22bb65bf2a92a25d95d801b11c9e0 Mon Sep 17 00:00:00 2001
From: Scott Gasch <scott.gasch@gmail.com>
Date: Wed, 1 Jun 2016 18:58:58 -0700
Subject: Initial checkin for typhoon chess engine.

---
 src/suite_diff.pl | 225 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 225 insertions(+)
 create mode 100755 src/suite_diff.pl

(limited to 'src/suite_diff.pl')

diff --git a/src/suite_diff.pl b/src/suite_diff.pl
new file mode 100755
index 0000000..6749f07
--- /dev/null
+++ b/src/suite_diff.pl
@@ -0,0 +1,225 @@
+#!/usr/bin/perl
+
+$verbose = 0;
+for $arg (@ARGV) {
+    $verbose = 1 if ($arg eq "-v");
+}
+
+$one_correct = $two_correct = 0;
+$one_beta = $two_beta = 0.0;
+$one_null = $two_null = 0.0;
+$one_time = $two_time = 0.0;
+$one_nodes = $two_nodes = 0.0;
+$one_depth = $two_depth = 0.0;
+$one_extends = $two_extends = 0;
+$one_hash = $two_hash = 0;
+$one_useful = $two_useful = 0;
+
+open(LOG, $ARGV[0]) || die "Can't open $ARGV[0], $!\n";
+while(<LOG>)
+{
+    if (/^Problem \"([^\"]+)\" solved in (\d+\.\d+)/)
+    {
+        $one_correct++;
+        $name = $1;
+        $time = $2;
+    }
+    elsif (/^>>>>> Problem \"([^\"]+)\" was not solved\. <<<<</)
+    {
+        $name = $1;
+        $time = -1;
+    }
+    elsif (/First move beta cutoff rate was (\d+\.\d+)/)
+    {
+        $one_beta += $1;
+    }
+    elsif (/Null move cutoff rate\: (\d+\.\d+)/)
+    {
+        $one_null += $1;
+    }
+    elsif (/Searched for\s+(\d+\.\d+) seconds, saw (\d+) nodes/) 
+    {
+        $one_time += $1;
+        $one_nodes += $2;
+    }
+    elsif (/tellothers d(\d+)/)
+    {
+        $one_depth += $1;
+    }
+    elsif (/Extensions: \((\d+) \+, (\d+) q\+, (\d+) 1mv, (\d+) \!kmvs, (\d+) mult\+ (\d+) pawn/) 
+    {
+        $one_extends += $1 + $2 + $3 + $4 + $5 + $6;
+    }
+    elsif (/(\d+) threat, (\d+) zug, (\d+) sing, (\d+) endg, (\d+) bm, (\d+) recap/)
+    {
+        $one_extends += $1 + $2 + $3 + $4 + $5 + $6;
+    }
+    elsif (/Hashing percentages\: \((\d+\.\d+) total, (\d+\.\d+) useful\)/)
+    {
+        $one_hash += $1; $one_useful += $2;
+    }
+
+    if ($name ne "")
+    {
+        if ($name =~ /[^\.]+\.(\d+)/)
+        {
+            $name = $1;
+        }
+        $one{$name} = $time;
+        $name = "";
+        $time = 0;
+    }
+}
+close(LOG);
+
+open(LOG, $ARGV[1]) || die "Can't open $ARGV[1], $!\n";
+while(<LOG>)
+{
+    if ($_ =~ /^Problem \"([^\"]+)\" solved in (\d+\.\d+)/)
+    {
+        $name = $1;
+        $time = $2;
+        if ($name =~ /[^\.]+\.(\d+)/)
+        {
+            $name = $1;
+        }
+        $two_correct++ if (defined($one{$name}));
+    }
+    elsif ($_ =~ /^>>>>> Problem \"([^\"]+)\" was not solved\. <<<<</)
+    {
+        $name = $1;
+        $time = -1;
+        if ($name =~ /[^\.]+\.(\d+)/)
+        {
+            $name = $1;
+        }
+    }
+    elsif (/First move beta cutoff rate was (\d+\.\d+)/)
+    {
+        $two_beta += $1;
+    }
+    elsif (/Null move cutoff rate\: (\d+\.\d+)/)
+    {
+        $two_null += $1;
+    }
+    elsif (/Searched for\s+(\d+\.\d+) seconds, saw (\d+) nodes/) 
+    {
+        $two_time += $1;
+        $two_nodes += $2;
+    }
+    elsif (/tellothers d(\d+)/)
+    {
+        $two_depth += $1;
+    }
+    elsif (/Extensions: \((\d+) \+, (\d+) q\+, (\d+) 1mv, (\d+) \!kmvs, (\d+) mult\+ (\d+) pawn/) 
+    {
+        $two_extends += $1 + $2 + $3 + $4 + $5 + $6;
+    }
+    elsif (/(\d+) threat, (\d+) zug, (\d+) sing, (\d+) endg, (\d+) bm, (\d+) recap/)
+    {
+        $two_extends += $1 + $2 + $3 + $4 + $5 + $6;
+    }
+    elsif (/Hashing percentages\: \((\d+\.\d+) total, (\d+\.\d+) useful\)/)
+    {
+        $two_hash += $1; $two_useful += $2;
+    }
+
+    if ($name ne "")
+    {
+        last if !defined $one{$name};
+        $two{$name} = $time;
+        $name = "";
+        $time = 0;
+    }
+}
+close(LOG);
+
+$sigma_diff = 0;
+print "\t$ARGV[0]\t$ARGV[1]\n";
+foreach $x (sort keys(%one))
+{
+    $one{$x} = -1 if (!defined($one{$x}));
+    $two{$x} = -1 if (!defined($two{$x}));
+
+    if (($one{$x} != -1) &&
+        ($two{$x} != -1))
+    {
+        $diff = $one{$x} - $two{$x};
+        $sigma_diff += $diff;
+    }
+    else
+    {
+        if (($one{$x} == -1) &&
+            ($two{$x} != -1))
+        {
+            $diff = 31 - $two{$x};
+            $one{$x} = "---";
+            $sigma_diff += $diff;
+        }
+        elsif (($two{$x} == -1) &&
+               ($one{$x} != -1))
+        {
+            $diff = -(31 - $one{$x});
+            $two{$x} = "---";
+            $sigma_diff += $diff;
+        }
+        else
+        {
+            $one{$x} = $two{$x} = "";
+            $diff = "both missed";
+        }
+    }
+    $diff = " " if ($diff == 0);
+
+    if ($verbose) 
+    {
+        if (($diff eq "both missed") || ($diff eq " "))
+        {
+            print "$x:\t\t" . $one{$x} . "\t" . $two{$x} . "\t\t$diff\n";
+        }
+        else
+        {
+            printf "$x:\t\t" . $one{$x} . "\t" . $two{$x} . "\t\t%+2.1f\n", $diff;
+        }
+    }
+}
+
+print "-" x 70;
+print "\n";
+print "solutions:\t$one_correct\t$two_correct\t";
+
+if ($sigma_diff < 0)
+{
+    $sigma_diff = abs($sigma_diff);
+    printf "$ARGV[0] by %6.2f sec\n", $sigma_diff;
+}
+elsif ($sigma_diff > 0)
+{
+    printf "$ARGV[1] by %6.2f sec\n", $sigma_diff;
+}
+else
+{
+    print "even.\n";
+}
+
+@x = keys(%one);
+$one_count = $#x;
+@x = keys(%two);
+$two_count = $#x;
+
+printf "1st mv betas:\t%6.3f\t%6.3f\n", 
+    ($one_beta / $one_count), ($two_beta / $two_count);
+printf "nullmv cutoff:\t%6.3f\t%6.3f\n", 
+    ($one_null / $one_count), ($two_null / $two_count);
+printf "avg depth:\t%6.3f\t%6.3f\n", 
+    ($one_depth / $one_count), ($two_depth / $two_count);
+printf "total hash:\t%6.3f\t%6.3f\n",
+    ($one_hash / $one_count), ($two_hash / $two_count);
+printf "useful hash:\t%6.3f\t%6.3f\n",
+    ($one_useful / $one_count), ($two_useful / $two_count);
+printf "k-avg.extend:\t%6.3f\t%6.3f\n",
+    ($one_extends / $one_count) / 1024, ($two_extends / $two_count) / 1024;
+printf "k-extends:\t%6u\t%6u\n",
+    ($one_extends / 1024), ($two_extends / 1024);
+printf "overall nps:\t%6u\t%6u\n", 
+    ($one_nodes / $one_time), ($two_nodes / $two_time);
-- 
cgit v1.3