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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
#!/usr/bin/env perl
# show stats of challenge submissions
use Modern::Perl;
use Path::Tiny;
my $USER = "paulo-custodio";
our %LANG = (
ada => 'adb',
awk => 'awk',
basic => 'bas',
bc => 'bc',
brainfuck=>'bf',
c => 'c',
cpp => 'cpp',
d => 'd',
forth => 'fs',
fortran => 'f90',
lua => 'lua',
pascal => 'pas',
perl => 'pl',
python => 'py',
);
# collect data
my @sols;
for my $chall_dir (path(".")->children(qr/challenge-\d+/)) {
my($chall) = $chall_dir =~ /(\d+)/ or die;
$chall += 0;
for my $lang (sort keys %LANG) {
my $dir = path($chall_dir, $USER, $lang);
next unless $dir->is_dir;
my $sols = scalar($dir->children(qr/^ch[-_]\d\.$LANG{$lang}$/));
$sols[$chall]{$lang} = $sols;
}
}
# challenge 232 did not exist
for my $lang (sort keys %LANG) {
$sols[232]{$lang} = 2;
}
# output
for my $chall (1 .. $#sols) {
if (($chall) % 10 == 1) {
say "-" x 80;
print " " x 4;
for my $lang (sort keys %LANG) {
print " ", $lang;
}
say "";
say "-" x 80;
}
printf("%3d ", $chall);
for my $lang (sort keys %LANG) {
my $width = length($lang);
my $before = int(($width-1)/2);
my $after = $width - 1 - $before;
my $value = $sols[$chall]{$lang} || " ";
print " ", " " x $before, $value, " " x $after;
}
say "";
}
say "";
for my $lang (sort keys %LANG) {
my @list;
my $count=0;
for my $chall (1 .. $#sols) {
push @list, $chall if ($sols[$chall]{$lang}//0)==2;
$count+=$sols[$chall]{$lang}//0;
}
say sprintf("%-12s(%4d) ", $lang, $count), list_compreension(@list);
}
sub list_compreension {
my(@in) = @_;
my @out;
while (@in) {
if (@in==1) {
push @out, shift @in;
}
else {
my $i=0;
while ($i<@in && $in[$i]==$in[0]+$i) { $i++; }
if ($i==1) {
push @out, shift @in;
}
else {
push @out, $in[0]."-".$in[$i-1];
splice(@in,0,$i);
}
}
}
return join(",", @out);
}
|
