- Added solutions by Arne Sommer.

20 files changed, 1794 insertions, 1301 deletions

diff --git a/challenge-057/arne-sommer/blog.txt b/challenge-057/arne-sommer/blog.txt
new file mode 100644
index 0000000000..79e81907fb
--- /dev/null
+++ b/challenge-057/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/inverted-prefix.html
diff --git a/challenge-057/arne-sommer/raku/bonus-tree b/challenge-057/arne-sommer/raku/bonus-tree
new file mode 100755
index 0000000000..56fba87fb6
--- /dev/null
+++ b/challenge-057/arne-sommer/raku/bonus-tree
@@ -0,0 +1,41 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Str $tree = "1 | 2 3 | 4 5 6 7", :$dashes);
+
+my $space = $dashes ?? "-" !! " ";
+
+my @btree = $tree.split("|");
+
+my $rows = @btree.elems;
+my $row  = $rows -1;
+my $count = 1;
+
+my $indents := (0, { ($_ * 2) +1 } ... *);
+my $indent   = $indents[$row];
+my $spacing  = 0;
+
+for @btree -> $level
+{ 
+  my @values = $level.words;
+
+  die "wrong number of element on row { $rows - $row }: { @values.elems } (should have been $count)"
+   
+    if @values.elems != $count;
+
+  print $space x $indent;
+
+  say @values.join($space x $spacing);
+
+  last if $row == 0;
+
+  $row--;
+  $spacing = $indent;
+  
+  $indent = $indents[$row];
+
+  print $space x $indent;
+  print "/{ $space x $spacing}\\{ $space x $spacing }" x $count;
+  say "";
+  
+  $count *= 2;
+}
diff --git a/challenge-057/arne-sommer/raku/bonus-tree-fixed b/challenge-057/arne-sommer/raku/bonus-tree-fixed
new file mode 100755
index 0000000000..6de82bdef7
--- /dev/null
+++ b/challenge-057/arne-sommer/raku/bonus-tree-fixed
@@ -0,0 +1,46 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Str $tree = "1 | 2 3 | 4 5 6 7", :$dashes);
+
+my $space    = $dashes ?? "-" !! " ";
+my @btree    = $tree.split("|");
+my $rows     = @btree.elems;
+my $row      = $rows -1;
+my $count    = 1;
+my $width    = $tree.words>>.chars.max;
+my $indents := (0, { ($_ * 2) +1 } ... *);
+my $indent   = $indents[$row] * $width;
+my $spacing  = 0;
+
+for @btree -> $level
+{
+  state $row    = 1;
+  state $target = 1;
+  my @values = $level.words;
+  die "wrong number of element on row $row: { @values.elems } (should have been $target)"
+    if @values.elems != $target;
+
+  $row++; $target *=2;
+}
+
+for @btree -> $level
+{ 
+  my @values = $level.words;
+
+  print $space x $indent;
+
+  say @values>>.fmt("%-{$width}s").join($space x $spacing);
+
+  last if $row == 0;
+
+  $row--;
+  $spacing = $indent;
+  
+  $indent = $indents[$row] * $width;
+
+  print $space x $indent;
+  my $line = ( "/".fmt("%-{$width}s") ~ $space x $spacing ~ "\\".fmt("%-{$width}s") ~ $space x $spacing) x $count;
+  say $line.trim-trailing;
+  
+  $count *= 2;
+}
diff --git a/challenge-057/arne-sommer/raku/ch-1.p6 b/challenge-057/arne-sommer/raku/ch-1.p6
new file mode 100755
index 0000000000..6f23ec538c
--- /dev/null
+++ b/challenge-057/arne-sommer/raku/ch-1.p6
@@ -0,0 +1,81 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Str :$tree = "1 | 2 3 | 4 5 6 7", :$verbose, :$quotes);
+
+class BinaryNode
+{
+  has Int        $.value;
+  has BinaryNode $.left   is rw;
+  has BinaryNode $.right  is rw;
+
+  method swap
+  {
+    (self.left, self.right) = (self.right, self.left);
+  }
+}
+
+my @btree = $tree.split("|")>>.words;
+
+my @old-nodes;
+my @new-nodes;
+
+for @btree.reverse -> $row
+{
+  my @current = @$row;
+  @old-nodes  = @new-nodes;
+  @new-nodes  = ();
+  
+  for @current -> $value
+  {
+    if $value eq "*"
+    {
+      @new-nodes.push("*");
+      next;
+    }
+
+    my $left  = @old-nodes.shift // "*"; $left  = Nil if $left  eq "*";
+    my $right = @old-nodes.shift // "*"; $right = Nil if $right eq "*";
+
+    @new-nodes.push(BinaryNode.new(value => $value.Int,
+                                   left  => $left  // Nil,
+                                   right => $right // Nil)); 
+  }
+}
+
+my $btree = @new-nodes[0];
+
+say $btree, "\n" if $verbose;
+
+traverse($btree);
+
+say $btree, "\n" if $verbose;
+
+say $quotes
+  ?? '"' ~ tree2string($btree) ~ '"'
+  !!       tree2string($btree);
+
+sub traverse ($current)
+{
+  $current.swap;
+
+  traverse($current.left)  if $current.left.defined;
+  traverse($current.right) if $current.right.defined;
+}
+
+sub tree2string ($tree)
+{
+  my @level;
+  my $level = 0;
+  
+  sub do-it($current, $level)
+  {
+    say ":: " ~ $current.value if $verbose;
+    @level[$level].push($current.value);
+    do-it($current.left,  $level +1) if $current.left.defined;
+    do-it($current.right, $level +1) if $current.right.defined;
+  }
+  
+  do-it($tree, $level);
+ 
+  return @level.join(" | ").join(" ");
+}
diff --git a/challenge-057/arne-sommer/raku/ch-2.p6 b/challenge-057/arne-sommer/raku/ch-2.p6
new file mode 100755
index 0000000000..00b106f8f7
--- /dev/null
+++ b/challenge-057/arne-sommer/raku/ch-2.p6
@@ -0,0 +1,73 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Str $words = "alphabet book carpet cadmium cadeau alpine", :$verbose);
+
+my @words = $words.words;
+
+class Letter
+{
+  has $.letter;
+  has $.count  is rw;
+  has %.next   is rw;
+}
+
+my %top;
+
+for @words.unique -> $word
+{
+  my @letters = $word.comb;
+
+  my $current = @letters.shift;
+  my $pointer;
+  
+  if ! %top{$current}.defined
+  {
+    %top{$current} = Letter.new(letter => $current);
+  }
+  
+  $pointer = %top{$current};
+
+  $pointer.count++;
+ 
+  for @letters -> $next
+  {
+    if ! $pointer.next{$next}.defined
+    {
+      $pointer.next{$next} = Letter.new(letter => $next);
+    }
+    $pointer = $pointer.next{$next};
+    $pointer.count++;
+  }
+}
+
+if $verbose
+{
+  for %top.keys -> $key
+  {
+    say ":: Top $key -> " ~ %top{$key}.count;
+  }
+}
+
+say "::" ~  %top.raku if $verbose;
+
+print "[ ";
+print '"' ~ look-up($_) ~ '" ' for @words;
+say "]";
+
+sub look-up($word)
+{
+  my @letters  = $word.comb;
+  my $letter   = @letters.shift;
+  my $shortest = $letter;
+  my $pointer  = %top{$letter};
+
+  for @letters -> $letter
+  {
+    last if $pointer.count == 1;
+    $pointer = $pointer.next{$letter};
+    $shortest ~= $letter;
+  }
+
+  return $shortest;
+}
+
diff --git a/challenge-057/arne-sommer/raku/invert-tree b/challenge-057/arne-sommer/raku/invert-tree
new file mode 100755
index 0000000000..6f23ec538c
--- /dev/null
+++ b/challenge-057/arne-sommer/raku/invert-tree
@@ -0,0 +1,81 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Str :$tree = "1 | 2 3 | 4 5 6 7", :$verbose, :$quotes);
+
+class BinaryNode
+{
+  has Int        $.value;
+  has BinaryNode $.left   is rw;
+  has BinaryNode $.right  is rw;
+
+  method swap
+  {
+    (self.left, self.right) = (self.right, self.left);
+  }
+}
+
+my @btree = $tree.split("|")>>.words;
+
+my @old-nodes;
+my @new-nodes;
+
+for @btree.reverse -> $row
+{
+  my @current = @$row;
+  @old-nodes  = @new-nodes;
+  @new-nodes  = ();
+  
+  for @current -> $value
+  {
+    if $value eq "*"
+    {
+      @new-nodes.push("*");
+      next;
+    }
+
+    my $left  = @old-nodes.shift // "*"; $left  = Nil if $left  eq "*";
+    my $right = @old-nodes.shift // "*"; $right = Nil if $right eq "*";
+
+    @new-nodes.push(BinaryNode.new(value => $value.Int,
+                                   left  => $left  // Nil,
+                                   right => $right // Nil)); 
+  }
+}
+
+my $btree = @new-nodes[0];
+
+say $btree, "\n" if $verbose;
+
+traverse($btree);
+
+say $btree, "\n" if $verbose;
+
+say $quotes
+  ?? '"' ~ tree2string($btree) ~ '"'
+  !!       tree2string($btree);
+
+sub traverse ($current)
+{
+  $current.swap;
+
+  traverse($current.left)  if $current.left.defined;
+  traverse($current.right) if $current.right.defined;
+}
+
+sub tree2string ($tree)
+{
+  my @level;
+  my $level = 0;
+  
+  sub do-it($current, $level)
+  {
+    say ":: " ~ $current.value if $verbose;
+    @level[$level].push($current.value);
+    do-it($current.left,  $level +1) if $current.left.defined;
+    do-it($current.right, $level +1) if $current.right.defined;
+  }
+  
+  do-it($tree, $level);
+ 
+  return @level.join(" | ").join(" ");
+}
diff --git a/challenge-057/arne-sommer/raku/invert-tree-oneliner b/challenge-057/arne-sommer/raku/invert-tree-oneliner
new file mode 100755
index 0000000000..6b2f96ca30
--- /dev/null
+++ b/challenge-057/arne-sommer/raku/invert-tree-oneliner
@@ -0,0 +1,5 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($tree = "1 | 2 3 | 4 5 6 7");
+
+say $tree.split(" | ")>>.words>>.reverse>>.join(" ").join(" | ");
diff --git a/challenge-057/arne-sommer/raku/shortest-unique-prefix b/challenge-057/arne-sommer/raku/shortest-unique-prefix
new file mode 100755
index 0000000000..d57317c48d
--- /dev/null
+++ b/challenge-057/arne-sommer/raku/shortest-unique-prefix
@@ -0,0 +1,73 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Str $words = "alphabet book carpet cadmium cadeau alpine", :$verbose);
+
+my @words = $words.words;
+
+class Letter
+{
+  has $.letter;
+  has $.count  is rw;
+  has %.next   is rw;
+}
+
+my %top;
+
+for @words -> $word
+{
+  my @letters = $word.comb;
+
+  my $current = @letters.shift;
+  my $pointer;
+  
+  if ! %top{$current}.defined
+  {
+    %top{$current} = Letter.new(letter => $current);
+  }
+  
+  $pointer = %top{$current};
+
+  $pointer.count++;
+ 
+  for @letters -> $next
+  {
+    if ! $pointer.next{$next}.defined
+    {
+      $pointer.next{$next} = Letter.new(letter => $next);
+    }
+    $pointer = $pointer.next{$next};
+    $pointer.count++;
+  }
+}
+
+if $verbose
+{
+  for %top.keys -> $key
+  {
+    say ":: Top $key -> " ~ %top{$key}.count;
+  }
+}
+
+say "::" ~  %top.raku if $verbose;
+
+print "[ ";
+print '"' ~ look-up($_) ~ '" ' for @words;
+say "]";
+
+sub look-up($word)
+{
+  my @letters  = $word.comb;
+  my $letter   = @letters.shift;
+  my $shortest = $letter;
+  my $pointer  = %top{$letter};
+
+  for @letters -> $letter
+  {
+    last if $pointer.count == 1;
+    $pointer = $pointer.next{$letter};
+    $shortest ~= $letter;
+  }
+
+  return $shortest;
+}
+
diff --git a/challenge-057/arne-sommer/raku/shortest-unique-prefix-fixed b/challenge-057/arne-sommer/raku/shortest-unique-prefix-fixed
new file mode 100755
index 0000000000..00b106f8f7
--- /dev/null
+++ b/challenge-057/arne-sommer/raku/shortest-unique-prefix-fixed
@@ -0,0 +1,73 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Str $words = "alphabet book carpet cadmium cadeau alpine", :$verbose);
+
+my @words = $words.words;
+
+class Letter
+{
+  has $.letter;
+  has $.count  is rw;
+  has %.next   is rw;
+}
+
+my %top;
+
+for @words.unique -> $word
+{
+  my @letters = $word.comb;
+
+  my $current = @letters.shift;
+  my $pointer;
+  
+  if ! %top{$current}.defined
+  {
+    %top{$current} = Letter.new(letter => $current);
+  }
+  
+  $pointer = %top{$current};
+
+  $pointer.count++;
+ 
+  for @letters -> $next
+  {
+    if ! $pointer.next{$next}.defined
+    {
+      $pointer.next{$next} = Letter.new(letter => $next);
+    }
+    $pointer = $pointer.next{$next};
+    $pointer.count++;
+  }
+}
+
+if $verbose
+{
+  for %top.keys -> $key
+  {
+    say ":: Top $key -> " ~ %top{$key}.count;
+  }
+}
+
+say "::" ~  %top.raku if $verbose;
+
+print "[ ";
+print '"' ~ look-up($_) ~ '" ' for @words;
+say "]";
+
+sub look-up($word)
+{
+  my @letters  = $word.comb;
+  my $letter   = @letters.shift;
+  my $shortest = $letter;
+  my $pointer  = %top{$letter};
+
+  for @letters -> $letter
+  {
+    last if $pointer.count == 1;
+    $pointer = $pointer.next{$letter};
+    $shortest ~= $letter;
+  }
+
+  return $shortest;
+}
+
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index a656ad8693..a0fd403d37 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,18 +1,130 @@
 {
-   "xAxis" : {
-      "type" : "category"
+   "subtitle" : {
+      "text" : "[Champions: 17] Last updated at 2020-04-25 23:15:48 GMT"
+   },
+   "series" : [
+      {
+         "data" : [
+            {
+               "y" : 2,
+               "name" : "Andrezgz",
+               "drilldown" : "Andrezgz"
+            },
+            {
+               "y" : 3,
+               "name" : "Arne Sommer",
+               "drilldown" : "Arne Sommer"
+            },
+            {
+               "drilldown" : "Dave Jacoby",
+               "name" : "Dave Jacoby",
+               "y" : 3
+            },
+            {
+               "name" : "E. Choroba",
+               "drilldown" : "E. Choroba",
+               "y" : 3
+            },
+            {
+               "y" : 3,
+               "drilldown" : "Jared Martin",
+               "name" : "Jared Martin"
+            },
+            {
+               "y" : 5,
+               "name" : "Javier Luque",
+               "drilldown" : "Javier Luque"
+            },
+            {
+               "y" : 4,
+               "name" : "Luca Ferrari",
+               "drilldown" : "Luca Ferrari"
+            },
+            {
+               "y" : 1,
+               "name" : "Mark Anderson",
+               "drilldown" : "Mark Anderson"
+            },
+            {
+               "drilldown" : "Markus Holzer",
+               "name" : "Markus Holzer",
+               "y" : 1
+            },
+            {
+               "drilldown" : "Mohammad S Anwar",
+               "name" : "Mohammad S Anwar",
+               "y" : 4
+            },
+            {
+               "y" : 1,
+               "name" : "Pete Houston",
+               "drilldown" : "Pete Houston"
+            },
+            {
+               "name" : "Roger Bell West",
+               "drilldown" : "Roger Bell West",
+               "y" : 2
+            },
+            {
+               "y" : 3,
+               "name" : "Shahed Nooshmand",
+               "drilldown" : "Shahed Nooshmand"
+            },
+            {
+               "y" : 2,
+               "name" : "Simon Proctor",
+               "drilldown" : "Simon Proctor"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Ulrich Rieke",
+               "name" : "Ulrich Rieke"
+            },
+            {
+               "drilldown" : "Wanderdoc",
+               "name" : "Wanderdoc",
+               "y" : 2
+            },
+            {
+               "drilldown" : "Yet Ebreo",
+               "name" : "Yet Ebreo",
+               "y" : 2
+            }
+         ],
+         "name" : "Perl Weekly Challenge - 057",
+         "colorByPoint" : 1
+      }
+   ],
+   "tooltip" : {
+      "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/>"
    },
    "drilldown" : {
       "series" : [
          {
-            "id" : "Andrezgz",
-            "name" : "Andrezgz",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "name" : "Andrezgz",
+            "id" : "Andrezgz"
+         },
+         {
+            "id" : "Arne Sommer",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "name" : "Arne Sommer"
          },
          {
             "data" : [
@@ -30,6 +142,7 @@
          },
          {
             "id" : "E. Choroba",
+            "name" : "E. Choroba",
             "data" : [
                [
                   "Perl",
@@ -39,10 +152,10 @@
                   "Blog",
                   1
                ]
-            ],
-            "name" : "E. Choroba"
+            ]
          },
          {
+            "name" : "Jared Martin",
             "data" : [
                [
                   "Perl",
@@ -53,11 +166,9 @@
                   1
                ]
             ],
-            "name" : "Jared Martin",
             "id" : "Jared Martin"
          },
          {
-            "id" : "Javier Luque",
             "name" : "Javier Luque",
             "data" : [
                [
@@ -72,9 +183,11 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "Javier Luque"
          },
          {
+            "name" : "Luca Ferrari",
             "data" : [
                [
                   "Raku",
@@ -85,7 +198,6 @@
                   2
                ]
             ],
-            "name" : "Luca Ferrari",
             "id" : "Luca Ferrari"
          },
          {
@@ -99,17 +211,16 @@
             "id" : "Mark Anderson"
          },
          {
-            "name" : "Markus Holzer",
+            "id" : "Markus Holzer",
             "data" : [
                [
                   "Raku",
                   1
                ]
             ],
-            "id" : "Markus Holzer"
+            "name" : "Markus Holzer"
          },
          {
-            "id" : "Mohammad S Anwar",
             "name" : "Mohammad S Anwar",
             "data" : [
                [
@@ -120,27 +231,28 @@
                   "Raku",
                   2
                ]
-            ]
+            ],
+            "id" : "Mohammad S Anwar"
          },
          {
-            "id" : "Pete Houston",
             "data" : [
                [
                   "Perl",
                   1
                ]
             ],
-            "name" : "Pete Houston"
+            "name" : "Pete Houston",
+            "id" : "Pete Houston"
          },
          {
             "id" : "Roger Bell West",
-            "name" : "Roger Bell West",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "name" : "Roger Bell West"
          },
          {
             "id" : "Shahed Nooshmand",
@@ -158,15 +270,16 @@
          },
          {
             "id" : "Simon Proctor",
-            "name" : "Simon Proctor",
             "data" : [
                [
                   "Raku",
                   2
                ]
-            ]
+            ],
+            "name" : "Simon Proctor"
          },
          {
+            "id" : "Ulrich Rieke",
             "data" : [
                [
                   "Perl",
@@ -177,18 +290,17 @@
                   1
                ]
             ],
-            "name" : "Ulrich Rieke",
-            "id" : "Ulrich Rieke"
+            "name" : "Ulrich Rieke"
          },
          {
-            "id" : "Wanderdoc",
-            "name" : "Wanderdoc",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "name" : "Wanderdoc",
+            "id" : "Wanderdoc"
          },
          {
             "name" : "Yet Ebreo",
@@ -202,107 +314,17 @@
          }
       ]
    },
-   "tooltip" : {
-      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
-      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
-      "followPointer" : 1
-   },
-   "series" : [
-      {
-         "name" : "Perl Weekly Challenge - 057",
-         "data" : [
-            {
-               "name" : "Andrezgz",
-               "drilldown" : "Andrezgz",
-               "y" : 2
-            },
-            {
-               "y" : 3,
-               "drilldown" : "Dave Jacoby",
-               "name" : "Dave Jacoby"
-            },
-            {
-               "y" : 3,
-               "name" : "E. Choroba",
-               "drilldown" : "E. Choroba"
-            },
-            {
-               "drilldown" : "Jared Martin",
-               "name" : "Jared Martin",
-               "y" : 3
-            },
-            {
-               "y" : 5,
-               "name" : "Javier Luque",
-               "drilldown" : "Javier Luque"
-            },
-            {
-               "drilldown" : "Luca Ferrari",
-               "name" : "Luca Ferrari",
-               "y" : 4
-            },
-            {
-               "name" : "Mark Anderson",
-               "drilldown" : "Mark Anderson",
-               "y" : 1
-            },
-            {
-               "name" : "Markus Holzer",
-               "drilldown" : "Markus Holzer",
-               "y" : 1
-            },
-            {
-               "drilldown" : "Mohammad S Anwar",
-               "name" : "Mohammad S Anwar",
-               "y" : 4
-            },
-            {
-               "name" : "Pete Houston",
-               "drilldown" : "Pete Houston",
-               "y" : 1
-            },
-            {
-               "drilldown" : "Roger Bell West",
-               "name" : "Roger Bell West",
-               "y" : 2
-            },
-            {
-               "y" : 3,
-               "drilldown" : "Shahed Nooshmand",
-               "name" : "Shahed Nooshmand"
-            },
-            {
-               "drilldown" : "Simon Proctor",
-               "name" : "Simon Proctor",
-               "y" : 2
-            },
-            {
-               "drilldown" : "Ulrich Rieke",
-               "name" : "Ulrich Rieke",
-               "y" : 2
-            },
-            {
-               "name" : "Wanderdoc",
-               "drilldown" : "Wanderdoc",
-               "y" : 2
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Yet Ebreo",
-               "name" : "Yet Ebreo"
-            }
-         ],
-         "colorByPoint" : 1
-      }
-   ],
-   "title" : {
-      "text" : "Perl Weekly Challenge - 057"
-   },
    "yAxis" : {
       "title" : {
          "text" : "Total Solutions"
       }
    },
+   "chart" : {
+      "type" : "column"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
    "legend" : {
       "enabled" : 0
    },
@@ -315,10 +337,7 @@
          }
       }
    },
-   "subtitle" : {
-      "text" : "[Champions: 16] Last updated at 2020-04-25 23:02:26 GMT"
-   },
-   "chart" : {
-      "type" : "column"
+   "title" : {
+      "text" : "Perl Weekly Challenge - 057"
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index e2707c6b7d..ca2fd68e38 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,50 +1,40 @@
 {
+   "title" : {
+      "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
+   },
+   "xAxis" : {
+      "labels" : {
+         "style" : {
+            "fontSize" : "13px",
+            "fontFamily" : "Verdana, sans-serif"
+         }
+      },
+      "type" : "category"
+   },
    "legend" : {
       "enabled" : "false"
    },
    "yAxis" : {
+      "min" : 0,
       "title" : {
          "text" : null
-      },
-      "min" : 0
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
+      }
    },
    "chart" : {
       "type" : "column"
    },
    "subtitle" : {
-      "text" : "Last updated at 2020-04-25 23:02:26 GMT"
+      "text" : "Last updated at 2020-04-25 23:15:48 GMT"
    },
-   "xAxis" : {
-      "type" : "category",
-      "labels" : {
-         "style" : {
-            "fontSize" : "13px",
-            "fontFamily" : "Verdana, sans-serif"
-         }
-      }
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
    },
    "series" : [
       {
-         "dataLabels" : {
-            "enabled" : "true",
-            "align" : "right",
-            "y" : 10,
-            "rotation" : -90,
-            "style" : {
-               "fontFamily" : "Verdana, sans-serif",
-               "fontSize" : "13px"
-            },
-            "color" : "#FFFFFF",
-            "format" : "{point.y:.0f}"
-         },
-         "name" : "Contributions",
          "data" : [
             [
                "Blog",
-               637
+               638
             ],
             [
                "Perl",
@@ -52,12 +42,22 @@
             ],
             [
                "Raku",
-               1505
+               1507
             ]
-         ]
+         ],
+         "name" : "Contributions",
+         "dataLabels" : {
+            "format" : "{point.y:.0f}",
+            "style" : {
+               "fontFamily" : "Verdana, sans-serif",
+               "fontSize" : "13px"
+            },
+            "rotation" : -90,
+            "align" : "right",
+            "color" : "#FFFFFF",
+            "y" : 10,
+            "enabled" : "true"
+         }
       }
-   ],
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
-   }
+   ]
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index bdbd348b71..d1b67baaab 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,4 +1,19 @@
 {
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         },
+         "borderWidth" : 0
+      }
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge Language"
+   },
+   "xAxis" : {
+      "type" :