1 files changed, 25 insertions, 0 deletions
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];
+    }
+}