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_picker.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 src/suite_picker.pl

(limited to 'src/suite_picker.pl')

diff --git a/src/suite_picker.pl b/src/suite_picker.pl
new file mode 100755
index 0000000..9433679
--- /dev/null
+++ b/src/suite_picker.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+$max = 0;
+while(<>)
+{
+    if ($_ =~ /^Problem \"([^\"]+)\" solved in/)
+    {
+        $k = $1;
+        $k =~ s/[^\.]*\.//;
+        $solved[$k]++;
+        $max = $solved[$k] if ($solved[$k] > $max);
+    }
+}
+
+for ($k = 0; $k < 880; $k++)
+{
+    if ($solved[$k] >= ($max - 3))
+    {
+        print "drop ecm.$k\n";
+    }
+    else
+    {
+        printf "keep ecm.$k (%u solution(s))\n", $solved[$k];
+    }
+}
-- 
cgit v1.3