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_null.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 src/suite_null.pl

(limited to 'src/suite_null.pl')

diff --git a/src/suite_null.pl b/src/suite_null.pl
new file mode 100755
index 0000000..4d7f64b
--- /dev/null
+++ b/src/suite_null.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+$correct[0] = $correct[1] = 0;
+$total[0] = $total[1] = 0;
+
+while(<>)
+{
+    #if (/Avoid null move heuristic was (\d+)\s*\/\s*(\d+)./)
+    #{
+    #    $correct[0] += $1;
+    #    $total[0] += $2;
+    #}
+    if (/ick null move heuristic rate was (\d+)\s*\((\d+)\)\s*\/\s*(\d+)./)
+    {
+        $correct[1] += ($1 + $2);
+        $total[1] += $3;
+    }
+}
+
+#print "Avoid null move tried $total[0] times, succeeded $correct[0] times.\n";
+#printf "Avoid null move success rate %5.2f percent.\n", $correct[0] / $total[0] * 100.0;
+print "Quick null move tried $total[1] times, succeeded $correct[1] times.\n";
+printf "Quick null move success rate %5.2f percent.\n", $correct[1] / $total[1] * 100.0;
+
-- 
cgit v1.3