src/suite_picker.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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];
    }
}