- Added solutions by Colin Crain.

17 files changed, 1437 insertions, 1094 deletions

diff --git a/challenge-073/colin-crain/blog.txt b/challenge-073/colin-crain/blog.txt
new file mode 100644
index 0000000000..ba0424382b
--- /dev/null
+++ b/challenge-073/colin-crain/blog.txt
@@ -0,0 +1 @@
+https://colincrain.wordpress.com/2020/08/15/open-the-window-just-a-little-bit-so-your-smallest-smaller-neighbor-can-get-in/
diff --git a/challenge-073/colin-crain/perl/ch-1.pl b/challenge-073/colin-crain/perl/ch-1.pl
new file mode 100644
index 0000000000..370ad1ca0c
--- /dev/null
+++ b/challenge-073/colin-crain/perl/ch-1.pl
@@ -0,0 +1,70 @@
+#! /opt/local/bin/perl
+#
+#       open-the-window-a-little-bit.pl
+#
+#       TASK #1 › Min Sliding Window
+#         Submitted by: Mohammad S Anwar
+# 
+#         You are given an array of integers @A and sliding window size $S.
+# 
+#         Write a script to create an array of min from each sliding window.
+# 
+#         Example
+#             Input: @A = (1, 5, 0, 2, 9, 3, 7, 6, 4, 8) and $S = 3
+#             Output: (0, 0, 0, 2, 3, 3, 4, 4)
+# 
+#             [(1 5 0) 2 9 3 7 6 4 8] = Min (0)
+#             [1 (5 0 2) 9 3 7 6 4 8] = Min (0)
+#             [1 5 (0 2 9) 3 7 6 4 8] = Min (0)
+#             [1 5 0 (2 9 3) 7 6 4 8] = Min (2)
+#             [1 5 0 2 (9 3 7) 6 4 8] = Min (3)
+#             [1 5 0 2 9 (3 7 6) 4 8] = Min (3)
+#             [1 5 0 2 9 3 (7 6 4) 8] = Min (4)
+#             [1 5 0 2 9 3 7 (6 4 8)] = Min (4)
+# 
+# 
+#         method:
+#         
+#             array slices to the rescue! Iterate over 0 to (last - window size)
+#             find min and push to output array. 
+#
+#       2020 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+
+use warnings;
+use strict;
+use feature ":5.26";
+
+## ## ## ## ## MAIN:
+
+
+my ($S, @A) = @ARGV;
+
+# $S = 3;
+# @A = (1, 5, 0, 2, 9, 3, 7, 6, 4, 8);
+
+my $end = @A - $S;
+my @output;
+
+for ( 0..$end ){
+    my $min = minimum( @A[$_..$_+$S-1] );
+    push @output, $min;
+}
+
+
+say "input:   @A    window size $S";
+say "output:  @output";
+
+## ## ## ## ## SUBS:
+
+sub minimum {
+    my $min = "inf";
+    $_ < $min and $min = $_ for @_;
+    return $min;
+}
+
+
+
+
diff --git a/challenge-073/colin-crain/perl/ch-2.pl b/challenge-073/colin-crain/perl/ch-2.pl
new file mode 100644
index 0000000000..20e2066a77
--- /dev/null
+++ b/challenge-073/colin-crain/perl/ch-2.pl
@@ -0,0 +1,110 @@
+#! /opt/local/bin/perl
+#
+#       smallest_smaller_neighbor.pl
+#
+#         TASK #2 › Smallest (Smaller) Neighbour
+#         Submitted by: Mohammad S Anwar
+#         You are given an array of integers @A.
+# 
+#         Write a script to create an array that represents the
+#         smallest element to the left of each corresponding
+#         index. If none found then use 0.
+# 
+#         Example 1
+#         Input: @A = (7, 8, 3, 12, 10)
+#         Output: (0, 7, 0, 3, 3)
+# 
+#         For index 0, the smallest number to the left of $A[0]      
+#             is none, so we put 0.
+#         For index 1, the smallest number to the left of $A[1] 
+#             in (7), is 7 so we put 7.
+#         For index 2, the smallest number to the left of $A[2] 
+#             in (7, 8) is none, so we put 0.
+#         For index 3, the smallest number to the left of $A[3] 
+#             in (7, 8, 3) is 3, so we put 3.
+#         For index 4, the smallest number to the left of $A[4] 
+#             is (7, 8, 3, 12) is 3, so we put 3 again.
+# 
+#         Example 2
+#         Input: @A = (4, 6, 5)
+#         Output: (0, 4, 4)
+# 
+#         For index 0, the smallest number to the left of $A[0] 
+#             is none, so we put 0.
+#         For index 1, the smallest number to the left of $A[1] 
+#             in (4) is 4, so we put 4.
+#         For index 2, the smallest number to the left of $A[2] 
+#             in (4, 6) is 4, so we put 4 again.
+# 
+#         method:
+#         smallest neighbor is a confusing title, as we are not
+#         looking for the smallest element to the left of a
+#         given index, but rather the smallest element to the
+#         left of the index that is smaller than that element.
+#         Or stated another way, the minimum item of the slice
+#         A[0..$i-1] that is less than A[$i]. When we put it
+#         like that the challenge really resembles the
+#         previous, only the size of the window is dynamic and
+#         there is some additional comparison going on. But the
+#         process is very similar: iterate acrosss the field,
+#         selecting a slice for each index, and determine the
+#         minimum value within that slice. Instead of just
+#         taking the minimum value, though, in the case we can
+#         add some additional processing in the function
+#         called.
+# 
+#         As there are never any elements to the left of index
+#         0, the first digit will always be 0 and hence can be
+#         inserted from the get-go. After that, starting at
+#         index 1, the slice from 0 to the current index is
+#         passed to our smallest_neighbor function, where the
+#         indexed value immediately popped off the end. The
+#         minimum of the remaining slice is found, and if that
+#         value is less than the index value it is returned,
+#         else 0. There is no need to make more than one pass
+#         over the list, as the minimum will be the minimum no
+#         matter its value.
+# 
+#         As 0 is a real value that is right in the middle of
+#         the potential range (as negative values are not
+#         disallowed), using it to label a target miss could be
+#         a bit confusing. With that in mind i have taken the
+#         liberty to substitute the null set sign '∅' instead,
+#         which looks a lot like '0' in my preferred font, but
+#         isn't, as it makes understanding what's happening
+#         just a little bit easier.
+# 
+#       2020 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+
+use warnings;
+use strict;
+use feature ":5.26";
+
+## ## ## ## ## MAIN:
+
+my @input = @ARGV;
+@input = (7, 8, -3, 12, -10);
+my @output = ('∅');
+
+for (1..@input-1) {
+    my @slice = @input[0..$_];
+    my $smallest = smallest_neighbor( @slice );
+    push @output, $smallest;
+}
+
+say "Input:  @input";
+say "Output: ", join ', ', @output;
+
+## ## ## ## ## SUBS:
+
+sub smallest_neighbor {
+## find the minimum value to the left and return it if 
+## min < given value, else 0
+    my $value = pop @_;
+    my $min = "inf";
+    $_ < $min and $min = $_ for @_;
+    $min < $value ? $min : '∅';
+}
\ No newline at end of file
diff --git a/challenge-073/colin-crain/raku/ch-1.raku b/challenge-073/colin-crain/raku/ch-1.raku
new file mode 100644
index 0000000000..810f075bf0
--- /dev/null
+++ b/challenge-073/colin-crain/raku/ch-1.raku
@@ -0,0 +1,46 @@
+#!/usr/bin/env perl6
+# 
+#
+#       open-the-window.raku
+# 
+#       TASK #1 › Min Sliding Window
+#         Submitted by: Mohammad S Anwar
+# 
+#         You are given an array of integers @A and sliding window size $S.
+# 
+#         Write a script to create an array of min from each sliding window.
+# 
+#         Example
+#             Input: @A = (1, 5, 0, 2, 9, 3, 7, 6, 4, 8) and $S = 3
+#             Output: (0, 0, 0, 2, 3, 3, 4, 4)
+# 
+#             [(1 5 0) 2 9 3 7 6 4 8] = Min (0)
+#             [1 (5 0 2) 9 3 7 6 4 8] = Min (0)
+#             [1 5 (0 2 9) 3 7 6 4 8] = Min (0)
+#             [1 5 0 (2 9 3) 7 6 4 8] = Min (2)
+#             [1 5 0 2 (9 3 7) 6 4 8] = Min (3)
+#             [1 5 0 2 9 (3 7 6) 4 8] = Min (3)
+#             [1 5 0 2 9 3 (7 6 4) 8] = Min (4)
+#             [1 5 0 2 9 3 7 (6 4 8)] = Min (4)
+# 
+#
+#
+#       2020 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+
+unit sub MAIN (Int $S where $S > 0 = 3, *@A );
+
+## default array
+@A = 1, 5, 0, 2, 9, 3, 7, 6, 4, 8 if @A.elems == 0;
+
+## make windows and find min within each to output
+my @windows = @A.rotor($S=>-$S+1);
+my @output = @windows.map( *.min );
+
+## output 
+say "input:   ", @A, "    window size $S";
+say "windows: ", |@windows;
+say "output:  ", @output;
+
diff --git a/challenge-073/colin-crain/raku/ch-2.raku b/challenge-073/colin-crain/raku/ch-2.raku
new file mode 100644
index 0000000000..2b0cb747a9
--- /dev/null
+++ b/challenge-073/colin-crain/raku/ch-2.raku
@@ -0,0 +1,93 @@
+#!/usr/bin/env perl6
+# 
+#
+#       smallest_smaller_neighbor.raku
+#
+#         TASK #2 › Smallest (Smaller) Neighbour
+#         Submitted by: Mohammad S Anwar
+#         You are given an array of integers @A.
+# 
+#         Write a script to create an array that represents the
+#         smallest element to the left of each corresponding
+#         index. If none found then use 0.
+# 
+#         Example 1
+#         Input: @A = (7, 8, 3, 12, 10)
+#         Output: (0, 7, 0, 3, 3)
+# 
+#         For index 0, the smallest number to the left of $A[0]      
+#             is none, so we put 0.
+#         For index 1, the smallest number to the left of $A[1] 
+#             in (7), is 7 so we put 7.
+#         For index 2, the smallest number to the left of $A[2] 
+#             in (7, 8) is none, so we put 0.
+#         For index 3, the smallest number to the left of $A[3] 
+#             in (7, 8, 3) is 3, so we put 3.
+#         For index 4, the smallest number to the left of $A[4] 
+#             is (7, 8, 3, 12) is 3, so we put 3 again.
+# 
+#         Example 2
+#         Input: @A = (4, 6, 5)
+#         Output: (0, 4, 4)
+# 
+#         For index 0, the smallest number to the left of $A[0] 
+#             is none, so we put 0.
+#         For index 1, the smallest number to the left of $A[1] 
+#             in (4) is 4, so we put 4.
+#         For index 2, the smallest number to the left of $A[2] 
+#             in (4, 6) is 4, so we put 4 again.
+#
+#       method:
+# 
+#         smallest neighbor is a confusing title, as we are not
+#         looking for the smallest element to the left of a
+#         given index, but rather the smallest element to the
+#         left of the index that is smaller than that at the index.
+#
+#         “triangular comma” produces a list of lists, each with
+#         one more element of the original array appended. Which,
+#         incidentally, is exactly what we need. Well almost,
+#         because each element is a list, rather than an array.
+#         By coercing it as such before we hand it off to our
+#         smallest_neighbor() sub we can then pop off the
+#         rightmost value and compute the output from there,
+#         using min and a comparison check to see whether the
+#         value of the minimum is less than the last element.
+# 
+#         As 0 is a real value that is right in the middle of
+#         the potential range (as negative values are not
+#         disallowed), using it to label a target miss could be
+#         a bit confusing. With that in mind I have taken the
+#         liberty to substitute the null set sign '∅',
+#         which looks a lot like '0' in my preferred font, but
+#         isn't, as it makes understanding what's happening
+#         just a little bit easier. 
+
+        
+#       2020 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+
+unit sub MAIN () ;
+
+my @input = 7, 8, 3, 12, 10;
+my @output;
+
+for [\,] @input  {                            ## triangular comma 
+    push @output, smallest_neighbor( $_.Array );     # $_ is List
+}
+
+sub smallest_neighbor( @slice ) {
+## find the minimum value to the left of last value not inclusive
+## return it if less than last, else ∅
+    my $val = @slice.pop;
+    my $min = @slice.min;
+    $min < $val ?? $min !! '∅';
+}
+
+@input .say;
+@output.say;
+
+
+
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 8688713e20..310eaa08e5 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,33 +1,138 @@
 {
-   "subtitle" : {
-      "text" : "[Champions: 21] Last updated at 2020-08-14 22:38:35 GMT"
+   "series" : [
+      {
+         "data" : [
+            {
+               "name" : "Andrew Shitov",
+               "y" : 3,
+               "drilldown" : "Andrew Shitov"
+            },
+            {
+               "drilldown" : "Athanasius",
+               "name" : "Athanasius",
+               "y" : 4
+            },
+            {
+               "drilldown" : "Ben Davies",
+               "y" : 2,
+               "name" : "Ben Davies"
+            },
+            {
+               "drilldown" : "Colin Crain",
+               "y" : 5,
+               "name" : "Colin Crain"
+            },
+            {
+               "drilldown" : "Dave Jacoby",
+               "name" : "Dave Jacoby",
+               "y" : 2
+            },
+            {
+               "drilldown" : "E. Choroba",
+               "name" : "E. Choroba",
+               "y" : 2
+            },
+            {
+               "y" : 2,
+               "name" : "Jan Krnavek",
+               "drilldown" : "Jan Krnavek"
+            },
+            {
+               "drilldown" : "Jason Messer",
+               "y" : 2,
+               "name" : "Jason Messer"
+            },
+            {
+               "y" : 5,
+               "name" : "Javier Luque",
+               "drilldown" : "Javier Luque"
+            },
+            {
+               "drilldown" : "Jorg Sommrey",
+               "name" : "Jorg Sommrey",
+               "y" : 2
+            },
+            {
+               "name" : "Laurent Rosenfeld",
+               "y" : 5,
+               "drilldown" : "Laurent Rosenfeld"
+            },
+            {
+               "drilldown" : "Mark Anderson",
+               "y" : 2,
+               "name" : "Mark Anderson"
+            },
+            {
+               "drilldown" : "Markus Holzer",
+               "name" : "Markus Holzer",
+               "y" : 2
+            },
+            {
+               "y" : 5,
+               "name" : "Mohammad S Anwar",
+               "drilldown" : "Mohammad S Anwar"
+            },
+            {
+               "y" : 2,
+               "name" : "Niels van Dijke",
+               "drilldown" : "Niels van Dijke"
+            },
+            {
+               "name" : "Pavel Kuptsov",
+               "y" : 2,
+               "drilldown" : "Pavel Kuptsov"
+            },
+            {
+               "drilldown" : "Pete Houston",
+               "name" : "Pete Houston",
+               "y" : 2
+            },
+            {
+               "drilldown" : "Roger Bell_West",
+               "y" : 4,
+               "name" : "Roger Bell_West"
+            },
+            {
+               "y" : 2,
+               "name" : "Shawn Wagner",
+               "drilldown" : "Shawn Wagner"
+            },
+            {
+               "drilldown" : "Simon Proctor",
+               "name" : "Simon Proctor",
+               "y" : 2
+            },
+            {
+               "drilldown" : "Ulrich Rieke",
+               "name" : "Ulrich Rieke",
+               "y" : 4
+            },
+            {
+               "drilldown" : "Wanderdoc",
+               "y" : 2,
+               "name" : "Wanderdoc"
+            }
+         ],
+         "name" : "Perl Weekly Challenge - 073",
+         "colorByPoint" : 1
+      }
+   ],
+   "title" : {
+      "text" : "Perl Weekly Challenge - 073"
    },
-   "legend" : {
-      "enabled" : 0
+   "subtitle" : {
+      "text" : "[Champions: 22] Last updated at 2020-08-14 22:51:09 GMT"
    },
    "tooltip" : {
-      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
       "followPointer" : 1,
+      "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/>"
    },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         },
-         "borderWidth" : 0
-      }
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "xAxis" : {
-      "type" : "category"
-   },
    "drilldown" : {
       "series" : [
          {
+            "name" : "Andrew Shitov",
+            "id" : "Andrew Shitov",
             "data" : [
                [
                   "Raku",
@@ -37,12 +142,10 @@
                   "Blog",
                   1
                ]
-            ],
-            "id" : "Andrew Shitov",
-            "name" : "Andrew Shitov"
+            ]
          },
          {
-            "id" : "Athanasius",
+            "name" : "Athanasius",
             "data" : [
                [
                   "Perl",
@@ -53,27 +156,45 @@
                   2
                ]
             ],
-            "name" : "Athanasius"
+            "id" : "Athanasius"
+         },
+         {
+            "id" : "Ben Davies",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "name" : "Ben Davies"
          },
          {
-            "name" : "Ben Davies",
             "data" : [
                [
+                  "Perl",
+                  2
+               ],
+               [
                   "Raku",
                   2
+               ],
+               [
+                  "Blog",
+                  1
                ]
             ],
-            "id" : "Ben Davies"
+            "id" : "Colin Crain",
+            "name" : "Colin Crain"
          },
          {
-            "name" : "Dave Jacoby",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "id" : "Dave Jacoby"
+            "id" : "Dave Jacoby",
+            "name" : "Dave Jacoby"
          },
          {
             "id" : "E. Choroba",
@@ -86,28 +207,26 @@
             "name" : "E. Choroba"
          },
          {
+            "name" : "Jan Krnavek",
             "id" : "Jan Krnavek",
             "data" : [
                [
                   "Raku",
                   2
                ]
-            ],
-            "name" : "Jan Krnavek"
+            ]
          },
          {
-            "name" : "Jason Messer",
+            "id" : "Jason Messer",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
-            "id" : "Jason Messer"
+            "name" : "Jason Messer"
          },
          {
-            "name" : "Javier Luque",
-            "id" : "Javier Luque",
             "data" : [
                [
                   "Perl",
@@ -121,7 +240,9 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "Javier Luque",
+            "name" : "Javier Luque"
          },
          {
             "name" : "Jorg Sommrey",
@@ -135,7 +256,6 @@
          },
          {
             "name" : "Laurent Rosenfeld",
-            "id" : "Laurent Rosenfeld",
             "data" : [
                [
                   "Perl",
@@ -149,17 +269,18 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "Laurent Rosenfeld"
          },
          {
+            "name" : "Mark Anderson",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
-            "id" : "Mark Anderson",
-            "name" : "Mark Anderson"
+            "id" : "Mark Anderson"
          },
          {
             "data" : [
@@ -173,6 +294,7 @@
          },
          {
             "name" : "Mohammad S Anwar",
+            "id" : "Mohammad S Anwar",
             "data" : [
                [
                   "Perl",
@@ -186,17 +308,16 @@
                   "Blog",
                   1
                ]
-            ],
-            "id" : "Mohammad S Anwar"
+            ]
          },
          {
+            "id" : "Niels van Dijke",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "id" : "Niels van Dijke",
             "name" : "Niels van Dijke"
          },
          {
@@ -210,17 +331,16 @@
             "id" : "Pavel Kuptsov"
          },
          {
+            "name" : "Pete Houston",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "id" : "Pete Houston",
-            "name" : "Pete Houston"
+            "id" : "Pete Houston"
          },
          {
-            "name" : "Roger Bell_West",
             "id" : "Roger Bell_West",
             "data" : [
                [
@@ -231,30 +351,30 @@
                   "Raku",
                   2
                ]
-            ]
+            ],
+            "name" : "Roger Bell_West"
          },
          {
+            "name" : "Shawn Wagner",
             "id" : "Shawn Wagner",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ],
-            "name" : "Shawn Wagner"
+            ]
          },
          {
-            "id" : "Simon Proctor",
+            "name" : "Simon Proctor",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
-            "name" : "Simon Proctor"
+            "id" : "Simon Proctor"
          },
          {
-            "name" : "Ulrich Rieke",
             "id" : "Ulrich Rieke",
             "data" : [
                [
@@ -265,7 +385,8 @@
                   "Raku",
                   2
                ]
-            ]
+            ],
+            "name" : "Ulrich Rieke"
          },
          {
             "data" : [
@@ -279,125 +400,27 @@
          }
       ]
    },
+   "chart" : {
+      "type" : "column"
+   },
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         },
+         "borderWidth" : 0
+      }
+   },
    "yAxis" : {
       "title" : {
          "text" : "Total Solutions"
       }
    },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 073"
+   "legend" : {
+      "enabled" : 0
    },
-   "series" : [
-      {
-         "name" : "Perl Weekly Challenge - 073",
-         "colorByPoint" : 1,
-         "data" : [
-            {
-               "y" : 3,
-               "drilldown" : "Andrew Shitov",
-               "name" : "Andrew Shitov"
-            },
-            {
-               "name" : "Athanasius",
-               "y" : 4,
-               "drilldown" : "Athanasius"
-            },
-            {
-               "name" : "Ben Davies",
-               "drilldown" : "Ben Davies",
-               "y" : 2
-            },
-            {
-               "drilldown" : "Dave Jacoby",
-               "y" : 2,
-               "name" : "Dave Jacoby"
-            },
-            {
-               "name" : "E. Choroba",
-               "y" : 2,
-               "drilldown" : "E. Choroba"
-            },
-            {
-               "name" : "Jan Krnavek",
-               "y" : 2,
-               "drilldown" : "Jan Krnavek"
-            },
-            {
-               "name" : "Jason Messer",
-               "drilldown" : "Jason Messer",
-               "y" : 2
-            },
-            {
-               "name" : "Javier Luque",
-               "y" : 5,
-               "drilldown" : "Javier Luque"
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Jorg Sommrey",
-               "name" : "Jorg Sommrey"
-            },
-            {
-               "name" : "Laurent Rosenfeld",
-               "y" : 5,
-               "drilldown" : "Laurent Rosenfeld"
-            },
-            {
-               "drilldown" : "Mark Anderson",
-               "y" : 2,
-               "name" : "Mark Anderson"
-            },
-            {
-               "name" : "Markus Holzer",
-               "y" : 2,
-               "drilldown" : "Markus Holzer"
-            },
-            {
-               "name" : "Mohammad S Anwar",
-               "y" : 5,
-               "drilldown" : "Mohammad S Anwar"
-            },
-            {
-               "drilldown" : "Niels van Dijke",
-               "y" : 2,
-               "name" : "Niels van Dijke"
-            },
-            {
-               "name" : "Pavel Kuptsov",
-               "y" : 2,
-               "drilldown" : "Pavel Kuptsov"
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Pete Houston",
-               "name" : "Pete Houston"
-            },
-            {
-               "drilldown" : "Roger Bell_West",
-               "y" : 4,
-               "name" : "Roger Bell_West"
-            },
-            {
-               "name" : "Shawn Wagner",
-               "y" : 2,
-               "drilldown" : "Shawn Wagner"
-            },
-            {
-               "name" : "Simon Proctor",
-               "y" : 2,
-               "drilldown" : "Simon Proctor"
-            },
-            {
-               "name" : "Ulrich Rieke",
-               "y" : 4,
-               "drilldown" : "Ulrich Rieke"
-            },
-            {
-               "name" : "Wanderdoc",
-               "drilldown" : "Wanderdoc",
-               "y" : 2
-            }
-         ]
-      }
-   ]
+   "xAxis" : {
+      "type" : "category"
+   }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index ea52131f65..95915721db 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,63 +1,63 @@
 {
+   "xAxis" : {
+      "type" : "category",
+      "labels" : {
+         "style" : {
+            "fontFamily" : "Verdana, sans-serif",
+            "fontSize" : "13px"
+         }
+      }
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
    "yAxis" : {
+      "min" : 0,
       "title" : {
          "text" : null
-      },
-      "min" : 0
+      }
    },
    "chart" : {
       "type" : "column"
    },
-   "xAxis" : {
-      "labels" : {
-         "style" : {
-            "fontFamily" : "Verdana, sans-serif",
-            "fontSize" : "13px"
-         }
-      },
-      "type" : "category"
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
+   },
+   "subtitle" : {
+      "text" : "Last updated at 2020-08-14 22:51:09 GMT"
    },
    "series" : [
       {
+         "dataLabels" : {
+            "format" : "{point.y:.0f}",
+            "rotation" : -90,
+            "color" : "#FFFFFF",
+            "style" : {
+               "fontSize" : "13px",
+               "fontFamily" : "Verdana, sans-serif"
+            },
+            "y" : 10,
+            "align" : "right",
+            "enabled" : "true"
+         },
          "data" : [
             [
                "Blog",
-               876
+               877
             ],
             [
                "Perl",
-               3017
+               3019
             ],
             [
                "Raku",
-               1967
+               1969
             ]
          ],
-         "dataLabels" : {
-            "format" : "{point.y:.0f}",
-            "style" : {
-               "fontFamily" : "Verdana, sans-serif",
-               "fontSize" : "13px"
-            },
-            "color" : "#FFFFFF",
-            "align" : "right",
-            "y" : 10,
-            "enabled" : "true",
-            "rotation" : -90
-         },
          "name" : "Contributions"
       }
-   ],
-   "title" : {
-      "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2020-08-14 22:38:35 GMT"
-   },
-   "legend" : {
-      "enabled" : "false"
-   },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
-   }
+   ]
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 060ffeed5a..8b3c61896c 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,45 +1,23 @@
 {