Show more stats

1 files changed, 37 insertions, 0 deletions

diff --git a/challenge-001/paulo-custodio/stats.pl b/challenge-001/paulo-custodio/stats.pl
index bc344a2db3..cf9947a329 100644
--- a/challenge-001/paulo-custodio/stats.pl
+++ b/challenge-001/paulo-custodio/stats.pl
@@ -62,3 +62,40 @@ for my $chall (1 .. $#sols) {
     }
     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);
+}
+
+
+