Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club

22 files changed, 1375 insertions, 787 deletions

diff --git a/challenge-053/dave-jacoby/node/ch-1.js b/challenge-053/dave-jacoby/node/ch-1.js
new file mode 100644
index 0000000000..b0cd5fa3c6
--- /dev/null
+++ b/challenge-053/dave-jacoby/node/ch-1.js
@@ -0,0 +1,35 @@
+#!/usr/bin/env node
+
+vowel_strings(2);
+
+function vowel_strings(max_len, str = '') {
+  if (str.length === max_len) {
+    console.log(str);
+    return;
+  }
+  var next = [];
+  var last = '';
+
+  if (str.length > 0) {
+    last = str.substring(-1, 1);
+  }
+
+  if (str === '') {
+    next = ['a', 'e', 'i', 'o', 'u'];
+  } else if (last === 'a') {
+    next = ['e', 'i'];
+  } else if (last === 'e') {
+    next = ['i'];
+  } else if (last === 'i') {
+    next = ['a', 'e', 'o', 'u'];
+  } else if (last === 'o') {
+    next = ['a', 'u'];
+  } else if (last === 'u') {
+    next = ['e', 'o'];
+  }
+
+  const iter = next.values();
+  for (const i of iter) {
+    vowel_strings(max_len, str + i);
+  }
+}
diff --git a/challenge-053/dave-jacoby/node/ch-2.js b/challenge-053/dave-jacoby/node/ch-2.js
new file mode 100644
index 0000000000..b0cd5fa3c6
--- /dev/null
+++ b/challenge-053/dave-jacoby/node/ch-2.js
@@ -0,0 +1,35 @@
+#!/usr/bin/env node
+
+vowel_strings(2);
+
+function vowel_strings(max_len, str = '') {
+  if (str.length === max_len) {
+    console.log(str);
+    return;
+  }
+  var next = [];
+  var last = '';
+
+  if (str.length > 0) {
+    last = str.substring(-1, 1);
+  }
+
+  if (str === '') {
+    next = ['a', 'e', 'i', 'o', 'u'];
+  } else if (last === 'a') {
+    next = ['e', 'i'];
+  } else if (last === 'e') {
+    next = ['i'];
+  } else if (last === 'i') {
+    next = ['a', 'e', 'o', 'u'];
+  } else if (last === 'o') {
+    next = ['a', 'u'];
+  } else if (last === 'u') {
+    next = ['e', 'o'];
+  }
+
+  const iter = next.values();
+  for (const i of iter) {
+    vowel_strings(max_len, str + i);
+  }
+}
diff --git a/challenge-053/dave-jacoby/perl/ch-1.pl b/challenge-053/dave-jacoby/perl/ch-1.pl
new file mode 100644
index 0000000000..a81a4ab62d
--- /dev/null
+++ b/challenge-053/dave-jacoby/perl/ch-1.pl
@@ -0,0 +1,86 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature qw{ say postderef signatures state };
+no warnings qw{ experimental::postderef experimental::signatures };
+
+use JSON;
+my $json = JSON->new;
+
+my $array = [ [ 1 .. 3 ], [ 4 .. 6 ], [ 7 .. 9 ] ];
+
+my $a90   = rotate_90($array);
+my $a180a = rotate_90($a90);
+my $a270a = rotate_90($a180a);
+my $a360a = rotate_90($a270a);
+
+my $a180b = rotate_180($array);
+my $a270b = rotate_270($array);
+
+say $json->encode($array);
+say '';
+say $json->encode($a90);
+say '';
+say $json->encode($a180a);
+say $json->encode($a180b);
+say '';
+say $json->encode($a270a);
+say $json->encode($a270b);
+say '';
+say $json->encode($a360a);
+
+sub rotate_90( $array ) {
+    my $x      = -1 + scalar $array->@*;
+    my $y      = -1 + scalar $array->[0]->@*;
+    my $output = [];
+    for my $i ( 0 .. $x ) {
+        my $jj = $i;
+        for my $j ( 0 .. $y ) {
+            my $ii = $y - $j;
+            $output->[$i][$j] = int $array->[$ii][$jj];
+        }
+    }
+    return $output;
+}
+
+sub rotate_180( $array ) {
+    my $x      = -1 + scalar $array->@*;
+    my $y      = -1 + scalar $array->[0]->@*;
+    my $output = [];
+    for my $i ( 0 .. $x ) {
+        my $jj = $x - $i;
+        for my $j ( 0 .. $y ) {
+            my $ii = $y - $j;
+            $output->[$i][$j] = int $array->[$ii][$jj];
+        }
+    }
+    return $output;
+}
+
+sub rotate_270($array) {
+    my $x      = -1 + scalar $array->@*;
+    my $y      = -1 + scalar $array->[0]->@*;
+    my $output = [];
+    for my $i ( 0 .. $x ) {
+        my $jj = $x - $i;
+        for my $j ( 0 .. $y ) {
+            my $ii = $j;
+            $output->[$i][$j] = int $array->[$ii][$jj];
+        }
+    }
+    return $output;
+}
+
+__DATA__
+
+1 2 3
+4 5 6
+7 8 9
+
+7 4 1
+8 5 2
+9 6 3 
+
+so 0,0 = 2,0
+   0,1 = 3,0
diff --git a/challenge-053/dave-jacoby/perl/ch-2.pl b/challenge-053/dave-jacoby/perl/ch-2.pl
new file mode 100644
index 0000000000..0e9992e4c2
--- /dev/null
+++ b/challenge-053/dave-jacoby/perl/ch-2.pl
@@ -0,0 +1,45 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature qw{ say postderef signatures state };
+no warnings qw{ experimental::postderef experimental::signatures };
+
+my $l = 2;
+if ( scalar @ARGV && int $ARGV[0] > 0 ) { $l = int $ARGV[0] }
+
+my @strings = vowel_strings($l);
+say join "\n", @strings;
+
+sub vowel_strings ( $l, $string = '' ) {
+    if ( length $string == $l ) {
+        return $string;
+    }
+    my @next;
+    my $m = length $string == 0 ? '' : substr $string, -1;
+    if ( $string eq '' ) {
+        @next = qw{ a e i o u};
+    }
+    elsif ( $m eq 'a' ) {
+        @next = qw{ e i };
+    }
+    elsif ( $m eq 'e' ) {
+        @next = qw{ i };
+    }
+    elsif ( $m eq 'i' ) {
+        @next = qw{ a o u e };
+    }
+    elsif ( $m eq 'o' ) {
+        @next = qw{ a u };
+    }
+    elsif ( $m eq 'u' ) {
+        @next = qw{ o e };
+    }
+
+    my @output;
+    for my $n (@next) {
+        push @output, vowel_strings( $l, $string . $n );
+    }
+    return @output;
+
+}
diff --git a/challenge-053/dave-jacoby/perl/rotate_matrix.pl b/challenge-053/dave-jacoby/perl/rotate_matrix.pl
new file mode 100644
index 0000000000..a81a4ab62d
--- /dev/null
+++ b/challenge-053/dave-jacoby/perl/rotate_matrix.pl
@@ -0,0 +1,86 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature qw{ say postderef signatures state };
+no warnings qw{ experimental::postderef experimental::signatures };
+
+use JSON;
+my $json = JSON->new;
+
+my $array = [ [ 1 .. 3 ], [ 4 .. 6 ], [ 7 .. 9 ] ];
+
+my $a90   = rotate_90($array);
+my $a180a = rotate_90($a90);
+my $a270a = rotate_90($a180a);
+my $a360a = rotate_90($a270a);
+
+my $a180b = rotate_180($array);
+my $a270b = rotate_270($array);
+
+say $json->encode($array);
+say '';
+say $json->encode($a90);
+say '';
+say $json->encode($a180a);
+say $json->encode($a180b);
+say '';
+say $json->encode($a270a);
+say $json->encode($a270b);
+say '';
+say $json->encode($a360a);
+
+sub rotate_90( $array ) {
+    my $x      = -1 + scalar $array->@*;
+    my $y      = -1 + scalar $array->[0]->@*;
+    my $output = [];
+    for my $i ( 0 .. $x ) {
+        my $jj = $i;
+        for my $j ( 0 .. $y ) {
+            my $ii = $y - $j;
+            $output->[$i][$j] = int $array->[$ii][$jj];
+        }
+    }
+    return $output;
+}
+
+sub rotate_180( $array ) {
+    my $x      = -1 + scalar $array->@*;
+    my $y      = -1 + scalar $array->[0]->@*;
+    my $output = [];
+    for my $i ( 0 .. $x ) {
+        my $jj = $x - $i;
+        for my $j ( 0 .. $y ) {
+            my $ii = $y - $j;
+            $output->[$i][$j] = int $array->[$ii][$jj];
+        }
+    }
+    return $output;
+}
+
+sub rotate_270($array) {
+    my $x      = -1 + scalar $array->@*;
+    my $y      = -1 + scalar $array->[0]->@*;
+    my $output = [];
+    for my $i ( 0 .. $x ) {
+        my $jj = $x - $i;
+        for my $j ( 0 .. $y ) {
+            my $ii = $j;
+            $output->[$i][$j] = int $array->[$ii][$jj];
+        }
+    }
+    return $output;
+}
+
+__DATA__
+
+1 2 3
+4 5 6
+7 8 9
+
+7 4 1
+8 5 2
+9 6 3 
+
+so 0,0 = 2,0
+   0,1 = 3,0
diff --git a/challenge-053/dave-jacoby/rust/ch-1.rs b/challenge-053/dave-jacoby/rust/ch-1.rs
new file mode 100644
index 0000000000..086987ff5b
--- /dev/null
+++ b/challenge-053/dave-jacoby/rust/ch-1.rs
@@ -0,0 +1,51 @@
+fn main() {
+    let my_str = "".to_string();
+    vowel_strings(2,my_str);
+}
+
+fn vowel_strings ( max_len:i32 , my_str:String) -> bool {
+    let rts_ym : String = my_str.chars().rev().collect();
+    let my_len = my_str.len();
+    let mut last = "";
+    let mut vnext : Vec<String> = Vec::new();
+
+    if  max_len as usize == my_len {
+        println!("{}",my_str);
+        return true
+    }
+
+    if my_len > 0 {
+        last = &rts_ym[0..1];
+    }
+
+    if  last == "a" {
+        vnext.push("e".to_string());
+        vnext.push("i".to_string());
+    } else if last == "e" {
+        vnext.push("i".to_string());
+    } else if last == "i" {
+        vnext.push("a".to_string());
+        vnext.push("e".to_string());
+        vnext.push("o".to_string());
+        vnext.push("u".to_string());
+    } else if last == "o" {
+        vnext.push("a".to_string());
+        vnext.push("o".to_string());
+    } else if last == "u" {
+        vnext.push("e".to_string());
+        vnext.push("o".to_string());
+    } else {
+        vnext.push("a".to_string());
+        vnext.push("e".to_string());
+        vnext.push("i".to_string());
+        vnext.push("o".to_string());
+        vnext.push("u".to_string());
+
+    }
+
+    for next in &vnext {
+        let next_str = format!("{}{}",my_str,next);
+        vowel_strings(max_len,next_str);
+    }
+    true
+}
\ No newline at end of file
diff --git a/challenge-053/dave-jacoby/rust/ch-2.rs b/challenge-053/dave-jacoby/rust/ch-2.rs
new file mode 100644
index 0000000000..086987ff5b
--- /dev/null
+++ b/challenge-053/dave-jacoby/rust/ch-2.rs
@@ -0,0 +1,51 @@
+fn main() {
+    let my_str = "".to_string();
+    vowel_strings(2,my_str);
+}
+
+fn vowel_strings ( max_len:i32 , my_str:String) -> bool {
+    let rts_ym : String = my_str.chars().rev().collect();
+    let my_len = my_str.len();
+    let mut last = "";
+    let mut vnext : Vec<String> = Vec::new();
+
+    if  max_len as usize == my_len {
+        println!("{}",my_str);
+        return true
+    }
+
+    if my_len > 0 {
+        last = &rts_ym[0..1];
+    }
+
+    if  last == "a" {
+        vnext.push("e".to_string());
+        vnext.push("i".to_string());
+    } else if last == "e" {
+        vnext.push("i".to_string());
+    } else if last == "i" {
+        vnext.push("a".to_string());
+        vnext.push("e".to_string());
+        vnext.push("o".to_string());
+        vnext.push("u".to_string());
+    } else if last == "o" {
+        vnext.push("a".to_string());
+        vnext.push("o".to_string());
+    } else if last == "u" {
+        vnext.push("e".to_string());
+        vnext.push("o".to_string());
+    } else {
+        vnext.push("a".to_string());
+        vnext.push("e".to_string());
+        vnext.push("i".to_string());
+        vnext.push("o".to_string());
+        vnext.push("u".to_string());
+
+    }
+
+    for next in &vnext {
+        let next_str = format!("{}{}",my_str,next);
+        vowel_strings(max_len,next_str);
+    }
+    true
+}
\ No newline at end of file
diff --git a/challenge-053/markus-holzer/raku/ch-1.p6 b/challenge-053/markus-holzer/raku/ch-1.p6
new file mode 100644
index 0000000000..08765fa5bb
--- /dev/null
+++ b/challenge-053/markus-holzer/raku/ch-1.p6
@@ -0,0 +1,30 @@
+sub MAIN( Int $degrees where * %% 90, :$size = 3 )
+{
+    my @matrix[ $size, $size ]  = ( 1..$size² ).batch( $size );
+
+    clockwise( @matrix ) for ^( $degrees / 90 );
+
+    dd @matrix;
+}
+
+sub clockwise( @matrix )
+{
+    my $n = @matrix.elems;
+    my $x = ( $n / 2 ).floor;
+    my $y = $n - 1;
+    
+    for ^$x -> $i
+    {
+        for ^$y -> $j
+        {
+            my $dj = $y - $j;
+            my $di = $y - $i;
+            my $k  = @matrix[ $i; $j ];
+
+            @matrix[ $i;  $j  ] = @matrix[ $dj; $i  ];
+            @matrix[ $dj; $i  ] = @matrix[ $di; $dj ];
+            @matrix[ $di; $dj ] = @matrix[ $j;  $di ];
+            @matrix[ $j;  $di ] = $k;
+        }
+    }
+};
\ No newline at end of file
diff --git a/challenge-053/markus-holzer/raku/ch-2.p6 b/challenge-053/markus-holzer/raku/ch-2.p6
new file mode 100644
index 0000000000..9da4087d36
--- /dev/null
+++ b/challenge-053/markus-holzer/raku/ch-2.p6
@@ -0,0 +1,30 @@
+my %rules =
+    :a( 'e', 'i'           ),
+    :e( 'i'                ),
+    :i( 'a', 'e', 'o', 'u' ),
+    :o( 'a', 'u'           ),
+    :u( 'e', 'o'           ),
+;
+
+sub MAIN(Int $n)
+{
+    .say for gather
+    {
+        build-str( $_, $n )
+            for %rules.keys.sort;
+    }
+}
+
+sub build-str( $current, $n )
+{
+    my $last = $current.substr( * - 1 );
+
+    for |%rules{ $last }
+    {
+        given $current ~ $_
+        {
+            take $_ and next if .chars == $n;
+            build-str( $_, $n );
+        }
+    }
+}
\ No newline at end of file
diff --git a/challenge-053/mohammad-anwar/perl/ch-1.pl b/challenge-053/mohammad-anwar/perl/ch-1.pl
new file mode 100644
index 0000000000..367e00ce7a
--- /dev/null
+++ b/challenge-053/mohammad-anwar/perl/ch-1.pl
@@ -0,0 +1,66 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Deep;
+
+my $unit_tests = {
+    90 => {
+            in  => [ [ 1, 2, 3 ], [ 4, 5, 6 ], [ 7, 8, 9 ] ],
+            out => [ [ 7, 4, 1 ], [ 8, 5, 2 ], [ 9, 6, 3 ] ],
+          },
+   180 => {
+            in  => [ [ 1, 2, 3 ], [ 4, 5, 6 ], [ 7, 8, 9 ] ],
+            out => [ [ 9, 8, 7 ], [ 6, 5, 4 ], [ 3, 2, 1 ] ],
+          },
+   270 => {
+            in  => [ [ 1, 2, 3 ], [ 4, 5, 6 ], [ 7, 8, 9 ] ],
+            out => [ [ 3, 6, 9 ], [ 2, 5, 8 ], [ 1, 4, 7 ] ],
+          },
+};
+
+foreach my $degree (sort { $a <=> $b } keys %$unit_tests) {
+    my $in  = $unit_tests->{$degree}->{in};
+    my $out = $unit_tests->{$degree}->{out};
+    cmp_deeply( rotate_matrix($in, $degree),
+                $out,
+                "testing $degree rotation" );
+}
+
+done_testing;
+
+#
+#
+# METHODS
+
+sub rotate_matrix {
+    my ($matrix, $degree) = @_;
+
+    my $_matrix;
+    foreach my $i ( 1 .. int($degree/90) ) {
+        $_matrix = _rotate_matrix($matrix);
+        $matrix = $_matrix;
+    }
+
+    return $_matrix;
+}
+
+sub _rotate_matrix {
+    my ($matrix) = @_;
+
+    my $rows = @$matrix;
+    my $cols = @{$matrix->[0]};
+
+    my $_matrix = [];
+    foreach my $i ( 0 .. $rows-1 ) {
+        my $k = 2;
+        foreach my $j ( 0 .. $cols-1 ) {
+            $_matrix->[$i][$j] = $matrix->[$k][$i];
+            $k--;
+        }
+    }
+
+    return $_matrix;
+}
diff --git a/challenge-053/mohammad-anwar/perl/ch-2.pl b/challenge-053/mohammad-anwar/perl/ch-2.pl
new file mode 100644
index 0000000000..ade15bceda
--- /dev/null
+++ b/challenge-053/mohammad-anwar/perl/ch-2.pl
@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Algorithm::Combinatorics qw(combinations);
+
+my $count = $ARGV[0] // 2;
+die "ERROR: Invalid count $count.\n"
+    unless (($count >= 1) && ($count <= 5));
+
+my $chars = [qw(a e i o u)];
+
+if ($count == 1) {
+    print join "\n", @$chars;
+    print "\n";
+    exit;
+}
+
+my $iter  = combinations($chars, $count);
+
+my $char_sets = [];
+while (my $char = $iter->next) {
+    push @$char_sets, join "", @$char;
+}
+
+my $rules = [
+    qr/a(?=[ie])/,
+    qr/e(?=[i])/,
+    qr/i(?=[aeou])/,
+    qr/o(?=[au])/,
+    qr/u(?=[oe])/
+];
+
+foreach my $char_set (@$char_sets) {
+    my $pass = 0;
+    foreach my $rule (@$rules) {
+        if ($char_set =~ /$rule/) {
+            $pass = 1;
+        }
+    }
+    print "$char_set\n" if ($pass);
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index af1a4c72ca..4ff56dd80c 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,15 +1,94 @@
 {
+   "chart" : {
+      "type" : "column"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         },
+         "borderWidth" : 0
+      }
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 053"
+   },
+   "series" : [
+      {
+         "colorByPoint" : 1,
+         "name" : "Perl Weekly Challenge - 053",
+         "data" : [
+            {
+               "y" : 2,
+               "name" : "Dave Cross",
+               "drilldown" : "Dave Cross"
+            },
+            {
+               "drilldown" : "Javier Luque",
+               "y" : 5,
+               "name" : "Javier Luque"
+            },
+            {
+               "drilldown" : "Luca Ferrari",
+               "name" : "Luca Ferrari",
+               "y" : 4
+            },
+            {
+               "y" : 2,
+               "name" : "Markus Holzer",
+               "drilldown" : "Markus Holzer"
+            },
+            {
+               "name" : "Mohammad S Anwar",
+               "y" : 2,
+               "drilldown" : "Mohammad S Anwar"
+            },
+            {
+               "y" : 1,
+               "name" : "Pete Houston",
+               "drilldown" : "Pete Houston"
+            },
+            {
+               "drilldown" : "Roger Bell West",
+               "name" : "Roger Bell West",
+               "y" : 4
+            },
+            {
+               "y" : 2,
+               "name" : "Simon Proctor",
+               "drilldown" : "Simon Proctor"
+            },
+            {
+               "drilldown" : "Wanderdoc",
+               "y" : 2,
+               "name" : "Wanderdoc"
+            },
+            {
+               "y" : 2,
+               "name" : "Yet Ebreo",
+               "drilldown" : "Yet Ebreo"
+            }
+         ]
+      }
+   ],
+   "legend" : {
+      "enabled" : 0
+   },
    "drilldown" : {
       "series" : [
          {
-            "id" : "Dave Cross",
             "name" : "Dave Cross",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "id" : "Dave Cross"
          },
          {
             "data" : [
@@ -26,12 +105,11 @@
                   1
                ]
             ],
-            "id" : "Javier Luque",
-            "name" : "Javier Luque"
+            "name" : "Javier Luque",
+            "id" : "Javier Luque"
          },
          {
             "id" : "Luca Ferrari",
-            "name" : "Luca Ferrari",
             "data" : [
                [
                   "Raku",
@@ -41,21 +119,42 @@
                   "Blog",
                   2
                ]
+            ],
+            "name" : "Luca Ferrari"
+         },
+         {
+            "name" : "Markus Holzer",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "id" : "Markus Holzer"
+         },
+         {
+            "id" : "Mohammad S Anwar",
+            "name" : "Mohammad S Anwar",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
             ]
          },
          {
-            "id" : "Pete Houston",
-            "name" : "Pete Houston",
             "data" : [
                [
                   "Perl",
                   1
                ]
-            ]
+            ],
+            "name" : "Pete Houston",
+            "id" : "Pete Houston"
          },
          {
-            "name" : "Roger Bell West",
             "id" : "Roger Bell West",
+            "name" : "Roger Bell West",
             "data" : [
                [
                   "Perl",
@@ -68,117 +167,48 @@
             ]
          },
          {
+            "name" : "Simon Proctor",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
-            "name" : "Simon Proctor",
             "id" : "Simon Proctor"
          },
          {
-            "id" : "Wanderdoc",
             "name" : "Wanderdoc",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "id" : "Wanderdoc"
          },
          {
             "id" : "Yet Ebreo",
-            "name" : "Yet Ebreo",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "name" : "Yet Ebreo"
          }
       ]
    },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
+   "subtitle" : {
+      "text" : "[Champions: 10] Last updated at 2020-03-23 22:48:36 GMT"
    },
    "tooltip" : {
-      "followPointer" : 1,
       "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
+      "followPointer" : 1,
       "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>"
    },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 053"
-   },
-   "legend" : {
-      "enabled" : 0
-   },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "enabled" : 1,
-            "format" : "{point.y}"
-         },
-         "borderWidth" : 0
-      }
-   },
-   "series" : [
-      {
-         "data" : [
-            {
-               "y" : 2,
-               "name" : "Dave Cross",
-               "drilldown" : "Dave Cross"
-            },
-            {
-               "y" : 5,
-               "name" : "Javier Luque",
-               "drilldown" : "Javier Luque"
-            },
-            {
-               "drilldown" : "Luca Ferrari",
-               "name" : "Luca Ferrari",
-               "y" : 4
-            },
-            {
-               "y" : 1,
-               "name" : "Pete Houston",
-               "drilldown" : "Pete Houston"
-            },
-            {
-               "y" : 4,
-               "name" : "Roger Bell West",
-               "drilldown" : "Roger Bell West"
-            },
-            {
-               "y" : 2,
-               "name" : "Simon Proctor",
-               "drilldown" : "Simon Proctor"
-            },
-            {
-               "y" : 2,
-               "name" : "Wanderdoc",
-               "drilldown" : "Wanderdoc"
-            },
-            {
-               "name" : "Yet Ebreo",
-               "drilldown" : "Yet Ebreo",
-               "y" : 2
-            }
-         ],
-         "colorByPoint" : 1,
-         "name" : "Perl Weekly Challenge - 053"
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
       }
-   ],
-   "xAxis" : {
-      "type" : "category"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 8] Last updated at 2020-03-23 15:57:20 GMT"
-   },
-   "chart" : {
-      "type" : "column"
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index c9aa7918e3..219b882767 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,36 +1,10 @@
 {
-   "yAxis" : {
-      "min" : 0,
-      "title" : {
-         "text" : null
-      }
-   },
    "title" : {
       "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
    },
-   "legend" : {
-      "enabled" : "false"
-   },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2020-03-23 15:57:20 GMT"
-   },
    "series" : [
       {
-         "dataLabels" : {
-            "style" : {
-               "fontSize" : "13px",
-               "fontFamily" : "Verdana, sans-serif"
-            },
-            "color" : "#FFFFFF",
-            "enabled" : "true",
-            "align" : "right",
-            "y" : 10,
-            "format" : "{point.y:.0f}",
-            "rotation" : -90
-         },
+         "name" : "Contributions",
          "data" : [
             [
                "Blog",
@@ -38,26 +12,52 @@
             ],
             [
                "Perl",
-               2214
+               2216
             ],
             [
                "Raku",
-               1357
+               1359
             ]
          ],
-         "name" : "Contributions"
+         "dataLabels" : {
+            "enabled" : "true",
+            "style" : {
+               "fontFamily" : "Verdana, sans-serif",
+               "fontSize" : "13px"
+            },
+            "rotation" : -90,
+            "align" : "right",
+            "y" : 10,
+            "format" : "{point.y:.0f}",
+            "color" : "#FFFFFF"
+         }
       }
    ],
+   "legend" : {
+      "enabled" : "false"
+   },
+   "chart" : {
+      "type" : "column"
+   },
    "xAxis" : {
+      "type" : "category",
       "labels" : {
          "style" : {
             "fontSize" : "13px",
             "fontFamily" : "Verdana, sans-serif"
          }
-      },
-      "type" : "category"
+      }
    },
-   "chart" : {
-      "type" : "column"
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
+   "yAxis" : {
+      "min" : 0,
+      "title" : {
+         "text" : null
+      }
+   },
+   "subtitle" : {
+      "text" : "Last updated at 2020-03-23 22:48:36 GMT"
    }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 02c0d6ae38..29217df92f 100644
--- a/