- Added solutions by Colin Crain.

17 files changed, 1587 insertions, 1270 deletions

diff --git a/challenge-122/colin-crain/perl/ch-1.pl b/challenge-122/colin-crain/perl/ch-1.pl
new file mode 100644
index 0000000000..60fac24fe2
--- /dev/null
+++ b/challenge-122/colin-crain/perl/ch-1.pl
@@ -0,0 +1,56 @@
+#!/Users/colincrain/perl5/perlbrew/perls/perl-5.32.0/bin/perl

+#

+#       crossing-the-stream.pl

+#

+#       Average of Stream

+#         Submitted by: Mohammad S Anwar

+#         You are given a stream of numbers, @N.

+# 

+#         Write a script to print the average of the stream at every point.

+# 

+#         Example

+#             Input: @N = (10, 20, 30, 40, 50, 60, 70, 80, 90, ...)

+#             Output:      10, 15, 20, 25, 30, 35, 40, 45, 50, ...

+#     

+#                 Average of first number is 10.

+#                 Average of first 2 numbers (10+20)/2 = 15

+#                 Average of first 3 numbers (10+20+30)/3 = 20

+#                 Average of first 4 numbers (10+20+30+40)/4 = 25 and so on.

+#

+#         method:

+#             Rather than maintain a separate count of the values summed to

+#             create an average, we already have this value as we're always

+#             counting elements fron the first index. 

+# 

+#             By calling `each` on the `@stream` array we get tuples of index

+#             and value for each element. We establish a running `$sum` value

+#             that is kept up-to-date with even new element, dividing this by

+#             `$idx`, which always contains one less than the number of elements

+#             summed will give us an average value of everything seen up to that

+#             point from index 0. 

+#         

+#         

+#         

+#       © 2021 colin crain

+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##

+

+

+

+use warnings;

+use strict;

+use utf8;

+use feature ":5.26";

+use feature qw(signatures);

+no warnings 'experimental::signatures';

+

+

+

+my @stream = (10, 20, 30, 40, 50, 60, 70, 80, 90);

+

+my $sum = 0;

+while ( my ($idx, $val) = each @stream ) {

+    $sum += $val;

+    $_ = sprintf "%.2f", $sum / ($idx+1);

+    s/\.0*$//;

+    say "average of first ", $idx+1, " numbers is ", $_;

+}

diff --git a/challenge-122/colin-crain/perl/ch-2.pl b/challenge-122/colin-crain/perl/ch-2.pl
new file mode 100644
index 0000000000..2c07bb1cc2
--- /dev/null
+++ b/challenge-122/colin-crain/perl/ch-2.pl
@@ -0,0 +1,96 @@
+#!/Users/colincrain/perl5/perlbrew/perls/perl-5.32.0/bin/perl

+#

+#       trip-from-the-line.pl

+#

+#       Basketball Points

+#         Submitted by: Mohammad S Anwar

+#         You are given a score $S.

+# 

+#         You can win basketball points e.g. 1 point, 2 points and 3 points.

+# 

+#         Write a script to find out the different ways you can score $S.

+# 

+#         Example

+# 

+#         Input: $S = 4

+#         Output: 1 1 1 1

+#                 1 1 2

+#                 1 2 1

+#                 1 3

+#                 2 1 1

+#                 2 2

+#                 3 1

+# 

+#         Input: $S = 5

+#         Output: 1 1 1 1 1

+#                 1 1 1 2

+#                 1 1 2 1

+#                 1 1 3

+#                 1 2 1 1

+#                 1 2 2

+#                 1 3 1

+#                 2 1 1 1

+#                 2 1 2

+#                 2 2 1

+#                 2 3

+#                 3 1 1

+#                 3 2

+# 

+#             method: 

+#                 what we have here is an integer partition problem, of sorts,

+#                 where we only allow the partitions the maximum value of 3. The

+#                 way I thought up to do this, out on a walk, was to start with

+#                 an empty list of lists, and add lists of partial partitions to

+#                 it as long as the sum was less than the final score. We would

+#                 work through this list, shifting off the next partial from one

+#                 end, adding either a new 1, 2 or 3 to the end of it and if the

+#                 new instance still summed less than the total, pushing it on

+#                 the backside of the queue to come around again. If the sum

+#                 came out exact, we have a parition and that list is moved over to 

+#                 another list for solutions and not recycled.

+# 

+#                 The first time around I put in a clause, that a new number

+#                 cannot be less than the last number placed: this avoids

+#                 repetitions by keeping the new patterns ordered, and we wont

+#                 get both [1, 2, 1, 2] and [2, 1, 2, 1].

+# 

+#                 After I got this up and running I realized that what was being

+#                 requested in fact wanted these repetitions counted as separate

+#                 variations. So be it; this only involved stripping out a

+#                 single `grep` filtering the `@points` options, so at each

+#                 juncture the full gamut of adding a new 1, 2 or 3 was

+#                 considered. 

+#

+#       © 2021 colin crain

+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##

+

+

+

+use warnings;

+use strict;

+use utf8;

+use feature ":5.26";

+use feature qw(signatures);

+no warnings 'experimental::signatures';

+use List::Util qw( sum );

+

+my $score = shift @ARGV // 5 ;      ## default value

+

+my @points = ( 1, 2, 3 );

+

+my @queue = map { [$_] } grep { $_ <= $score } (1..3);

+my @parts;

+

+while ( my $seq = shift @queue ) {

+    for my $next (  @points ) {

+        my $sum = sum $seq->@*, $next;

+        if ( $sum <= $score ) {

+            $sum == $score ? push @parts, [$seq->@*, $next]

+                           : push @queue, [$seq->@*, $next] ;

+        }

+    }

+}

+

+say "$_->@*" for @parts;

+

+

diff --git a/challenge-122/colin-crain/raku/ch-1.raku b/challenge-122/colin-crain/raku/ch-1.raku
new file mode 100644
index 0000000000..4e415f3d49
--- /dev/null
+++ b/challenge-122/colin-crain/raku/ch-1.raku
@@ -0,0 +1,93 @@
+#!/usr/bin/env perl6
+#
+#
+#       crossing-the-stream.raku
+#
+#       Average of Stream
+#         Submitted by: Mohammad S Anwar
+#         You are given a stream of numbers, @N.
+# 
+#         Write a script to print the average of the stream at every point.
+# 
+#         Example
+#             Input: @N = (10, 20, 30, 40, 50, 60, 70, 80, 90, ...)
+#             Output:      10, 15, 20, 25, 30, 35, 40, 45, 50, ...
+#     
+#                 Average of first number is 10.
+#                 Average of first 2 numbers (10+20)/2 = 15
+#                 Average of first 3 numbers (10+20+30)/3 = 20
+#                 Average of first 4 numbers (10+20+30+40)/4 = 25 and so on.
+#
+#         method:
+#             Rather than maintain a separate count of the values summed to
+#             create an average, we already have this value as we're always
+#             counting elements fron the first index. 
+# 
+#             By calling `each` on the `@stream` array we get tuples of index
+#             and value for each element. We establish a running `$sum` value
+#             that is kept up-to-date with even new element, dividing this by
+#             `$idx`, which always contains one less than the number of elements
+#             summed will give us an average value of everything seen up to that
+#             point from index 0. 
+# 
+#
+#
+#
+#       © 2021 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+## using a FIFO queue on a fixed array
+
+# unit sub MAIN ( *@stream ) ;
+# 
+# @stream.elems == 0 && @stream = (1..1).map: * × 10;
+# 
+# say @stream.WHAT;
+# my $sum;
+# for @stream.kv -> $idx, $val {
+#     $sum += $val;
+#     given sprintf $sum/($idx+1) {
+#         s/ \.0* $//;
+#         say "average of first ", $idx+1, " numbers is ", $_;
+#     }
+# }
+
+## processing a simulated data stream asynchronously
+
+unit sub MAIN () ;
+
+my $stream = Channel.new;
+my $i;
+my $sum;
+
+my $p = start {
+    say "stream started. Enter any value to exit";
+    
+    react {
+        whenever $stream {
+            done() if $_ !~~ /\d ** 2..* /;
+            $sum += $_;
+            $i++;
+            say "received value $_ from stream, cumulative average now {$sum/$i}";        
+        }
+    }
+    exit;
+}
+
+start {
+    await $*IN.getc.map: -> $c {
+        start {
+            $stream.send( $c );
+        }
+    }
+}
+ 
+await Supply.interval(1).map: -> $r {
+    start {
+        $stream.send(($r+1)*10);
+    }
+}
+
+$stream.close;
+await $p;
diff --git a/challenge-122/colin-crain/raku/ch-2.raku b/challenge-122/colin-crain/raku/ch-2.raku
new file mode 100644
index 0000000000..d13636d3fc
--- /dev/null
+++ b/challenge-122/colin-crain/raku/ch-2.raku
@@ -0,0 +1,64 @@
+#!/usr/bin/env perl6
+#
+#
+#       trip-from-the-line.raku
+#
+#       Basketball Points
+#         Submitted by: Mohammad S Anwar
+#         You are given a score $S.
+# 
+#         You can win basketball points e.g. 1 point, 2 points and 3 points.
+# 
+#         Write a script to find out the different ways you can score $S.
+# 
+#         Example
+# 
+#         Input: $S = 4
+#         Output: 1 1 1 1
+#                 1 1 2
+#                 1 2 1
+#                 1 3
+#                 2 1 1
+#                 2 2
+#                 3 1
+# 
+#         Input: $S = 5
+#         Output: 1 1 1 1 1
+#                 1 1 1 2
+#                 1 1 2 1
+#                 1 1 3
+#                 1 2 1 1
+#                 1 2 2
+#                 1 3 1
+#                 2 1 1 1
+#                 2 1 2
+#                 2 2 1
+#                 2 3
+#                 3 1 1
+#                 3 2
+#
+#
+#
+#       © 2021 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+
+unit sub MAIN (Int $score = 5) ;
+
+my @points = 1, 2, 3 ;
+my @queue  = @points.grep( * <= $score )
+                    .map(  *.Array ) ;
+my @parts;
+
+while @queue.shift -> @seq {
+    for @points {
+        my @new = |@seq, $_ ;
+        next if @new.sum > $score;
+        @new.sum == $score ?? @parts.push: @new
+                           !! @queue.push: @new;
+    }
+}
+
+put $_ for @parts;
+
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 5909233d84..01fdb6c760 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,7 +1,13 @@
 {
+   "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
+   },
    "drilldown" : {
       "series" : [
          {
+            "id" : "Abigail",
             "name" : "Abigail",
             "data" : [
                [
@@ -12,11 +18,11 @@
                   "Blog",
                   2
                ]
-            ],
-            "id" : "Abigail"
+            ]
          },
          {
             "id" : "Adam Russell",
+            "name" : "Adam Russell",
             "data" : [
                [
                   "Perl",
@@ -26,11 +32,11 @@
                   "Blog",
                   2
                ]
-            ],
-            "name" : "Adam Russell"
+            ]
          },
          {
             "id" : "Andinus",
+            "name" : "Andinus",
             "data" : [
                [
                   "Raku",
@@ -40,11 +46,9 @@
                   "Blog",
                   2
                ]
-            ],
-            "name" : "Andinus"
+            ]
          },
          {
-            "name" : "Arne Sommer",
             "id" : "Arne Sommer",
             "data" : [
                [
@@ -59,7 +63,8 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "name" : "Arne Sommer"
          },
          {
             "data" : [
@@ -72,38 +77,46 @@
                   2
                ]
             ],
-            "id" : "Athanasius",
-            "name" : "Athanasius"
+            "name" : "Athanasius",
+            "id" : "Athanasius"
          },
          {
+            "id" : "Cheok-Yin Fung",
+            "name" : "Cheok-Yin Fung",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ],
-            "id" : "Cheok-Yin Fung",
-            "name" : "Cheok-Yin Fung"
+            ]
          },
          {
+            "id" : "Colin Crain",
+            "name" : "Colin Crain",
             "data" : [
                [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
                   "Blog",
                   1
                ]
-            ],
-            "id" : "Colin Crain",
-            "name" : "Colin Crain"
+            ]
          },
          {
+            "name" : "Cristina Heredia",
             "data" : [
                [
                   "Perl",
                   1
                ]
             ],
-            "id" : "Cristina Heredia",
-            "name" : "Cristina Heredia"
+            "id" : "Cristina Heredia"
          },
          {
             "id" : "Dave Jacoby",
@@ -120,28 +133,27 @@
             "name" : "Dave Jacoby"
          },
          {
+            "id" : "Duncan C. White",
+            "name" : "Duncan C. White",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ],
-            "id" : "Duncan C. White",
-            "name" : "Duncan C. White"
+            ]
          },
          {
-            "id" : "E. Choroba",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "name" : "E. Choroba"
+            "name" : "E. Choroba",
+            "id" : "E. Choroba"
          },
          {
             "name" : "Flavio Poletti",
-            "id" : "Flavio Poletti",
             "data" : [
                [
                   "Perl",
@@ -155,9 +167,11 @@
                   "Blog",
                   2
                ]
-            ]
+            ],
+            "id" : "Flavio Poletti"
          },
          {
+            "id" : "James Smith",
             "name" : "James Smith",
             "data" : [
                [
@@ -168,8 +182,7 @@
                   "Blog",
                   1
                ]
-            ],
-            "id" : "James Smith"
+            ]
          },
          {
             "name" : "Jan Krnavek",
@@ -192,8 +205,8 @@
             "name" : "Jorg Sommrey"
          },
          {
-            "name" : "Laurent Rosenfeld",
             "id" : "Laurent Rosenfeld",
+            "name" : "Laurent Rosenfeld",
             "data" : [
                [
                   "Perl",
@@ -210,17 +223,17 @@
             ]
          },
          {
+            "name" : "Lubos Kolouch",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "id" : "Lubos Kolouch",
-            "name" : "Lubos Kolouch"
+            "id" : "Lubos Kolouch"
          },
          {
-            "name" : "Luca Ferrari",
+            "id" : "Luca Ferrari",
             "data" : [
                [
                   "Raku",
@@ -231,7 +244,7 @@
                   2
                ]
             ],
-            "id" : "Luca Ferrari"
+            "name" : "Luca Ferrari"
          },
          {
             "name" : "Lucas Ransan",
@@ -244,47 +257,47 @@
             "id" : "Lucas Ransan"
          },
          {
-            "name" : "Mark Anderson",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
+            "name" : "Mark Anderson",
             "id" : "Mark Anderson"
          },
          {
-            "name" : "Markus Holzer",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
+            "name" : "Markus Holzer",
             "id" : "Markus Holzer"
          },
          {
             "id" : "Niels van Dijke",
+            "name" : "Niels van Dijke",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ],
-            "name" : "Niels van Dijke"
+            ]
          },
          {
-            "name" : "Peter Scott",
-            "id" : "Peter Scott",
             "data" : [
                [
                   "Perl",
                   1
                ]
-            ]
+            ],
+            "name" : "Peter Scott",
+            "id" : "Peter Scott"
          },
          {
-            "name" : "Roger Bell_West",
+            "id" : "Roger Bell_West",
             "data" : [
                [
                   "Perl",
@@ -299,9 +312,10 @@
                   1
                ]
             ],
-            "id" : "Roger Bell_West"
+            "name" : "Roger Bell_West"
          },
          {
+            "id" : "Simon Green",
             "data" : [
                [
                   "Perl",
@@ -312,18 +326,17 @@
                   1
                ]
             ],
-            "id" : "Simon Green",
             "name" : "Simon Green"
          },
          {
-            "name" : "Simon Proctor",
-            "id" : "Simon Proctor",
             "data" : [
                [
                   "Raku",
                   2
                ]
-            ]
+            ],
+            "name" : "Simon Proctor",
+            "id" : "Simon Proctor"
          },
          {
             "name" : "Stuart Little",
@@ -340,6 +353,7 @@
             "id" : "Stuart Little"
          },
          {
+            "id" : "Ulrich Rieke",
             "data" : [
                [
                   "Perl",
@@ -350,10 +364,10 @@
                   1
                ]
             ],
-            "id" : "Ulrich Rieke",
             "name" : "Ulrich Rieke"
          },
          {
+            "id" : "W. Luis Mochan",
             "data" : [
                [
                   "Perl",
@@ -364,71 +378,45 @@
                   1
                ]
             ],
-            "id" : "W. Luis Mochan",
             "name" : "W. Luis Mochan"
          },
          {
-            "name" : "Wanderdoc",
-            "id" : "Wanderdoc",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "name" : "Wanderdoc",
+            "id" : "Wanderdoc"
          }
       ]
    },
-   "xAxis" : {
-      "type" : "category"
-   },
-   "plotOptions" : {
-      "series" : {
-         "borderWidth" : 0,
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         }
-      }
+   "chart" : {
+      "type" : "column"
    },
    "title" : {
       "text" : "The Weekly Challenge - 122"
    },
-   "subtitle" : {
-      "text" : "[Champions: 30] Last updated at 2021-07-25 21:40:51 GMT"
-   },
-   "tooltip" : {
-      "followPointer" : 1,
-      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
-      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
-   "chart" : {
-      "type" : "column"
-   },
    "series" : [
       {
-         "name" : "The Weekly Challenge - 122",
          "colorByPoint" : 1,
+         "name" : "The Weekly Challenge - 122",
          "data" : [
             {
-               "y" : 4,
+               "drilldown" : "Abigail",
                "name" : "Abigail",
-               "drilldown" : "Abigail"
+               "y" : 4
             },
             {
                "drilldown" : "Adam Russell",
-               "y" : 4,
-               "name" : "Adam Russell"
+               "name" : "Adam Russell",
+               "y" : 4
             },
             {
-               "drilldown" : "Andinus",
+               "y" : 4,
                "name" : "Andinus",
-               "y" : 4
+               "drilldown" : "Andinus"
             },
             {
                "y" : 5,
@@ -442,113 +430,113 @@
             },
             {
                "drilldown" : "Cheok-Yin Fung",
-               "y" : 2,
-               "name" : "Cheok-Yin Fung"
+               "name" : "Cheok-Yin Fung",
+               "y" : 2
             },
             {
-               "drilldown" : "Colin Crain",
                "name" : "Colin Crain",
-               "y" : 1
+               "drilldown" : "Colin Crain",
+               "y" : 5
             },
             {
+               "name" : "Cristina Heredia",
                "drilldown" : "Cristina Heredia",
-               "y" : 1,
-               "name" : "Cristina Heredia"
+               "y" : 1
             },
             {
                "y" : 3,
-               "name" : "Dave Jacoby",
-               "drilldown" : "Dave Jacoby"
+               "drilldown" : "Dave Jacoby",
+               "name" : "Dave Jacoby"
             },
             {
-               "name" : "Duncan C. White",
                "y" : 2,
-               "drilldown" : "Duncan C. White"
+               "drilldown" : "Duncan C. White",
+               "name" : "Duncan C. White"
             },
             {
                "drilldown" : "E. Choroba",
-               "y" : 2,
-               "name" : "E. Choroba"
+               "name" : "E. Choroba",
+               "y" : 2
             },
             {
-               "name" : "Flavio Poletti",
                "y" : 6,
-               "drilldown" : "Flavio Poletti"
+               "drilldown" : "Flavio Poletti",
+               "name" : "Flavio Poletti"
             },
             {
-               "drilldown" : "James Smith",
+               "y" : 3,
                "name" : "James Smith",
-               "y" : 3
+               "drilldown" : "James Smith"
             },
             {
-               "name" : "Jan Krnavek",
                "y" : 1,
-               "drilldown" : "Jan Krnavek"
+               "drilldown" : "Jan Krnavek",
+               "name" : "Jan Krnavek"
             },
             {
-               "y" : 2,
+               "drilldown" : "Jorg Sommrey",
                "name" : "Jorg Sommrey",
-               "drilldown" : "Jorg Sommrey"
+               "y" : 2
             },
             {
                "name" : "Laurent Rosenfeld",
-               "y" : 5,
-               "drilldown" : "Laurent Rosenfeld"
+               "drilldown" : "Laurent Rosenfeld",
+               "y" : 5
             },
             {
-               "y" : 2,
                "name" : "Lubos Kolouch",
-               "drilldown" : "Lubos Kolouch"
+               "drilldown" : "Lubos Kolouch",
+               "y" : 2
             },
             {
-               "y" : 4,
                "name" : "Luca Ferrari",
-               "drilldown" : "Luca Ferrari"
+               "drilldown" : "Luca Ferrari",
+               "y" : 4
             },
             {
-               "drilldown" : "Lucas Ransan",
                "y" : 2,
+               "drilldown" : "Lucas Ransan",
                "name" : "Lucas Ransan"
             },
             {
-               "drilldown" : "Mark Anderson",
                "name" : "Mark Anderson",
+               "drilldown" : "Mark Anderson",
                "y" : 2
             },
             {
+               "name" : "Markus Holzer",
                "drilldown" : "Markus Holzer",
-               "y" : 2,
-               "name" : "Markus Holzer"
+               "y" : 2
             },
             {
-               "drilldown" : "Niels van Dijke",
                "name" : "Niels van Dijke",
+               "drilldown" : "Niels van Dijke",
                "y" : 2
             },
             {
-               "drilldown" : "Peter Scott",
                "y" : 1,
+               "drilldown" : "Peter Scott",
                "name" : "Peter Scott"
             },
             {
                "drilldown" : "Roger Bell_West",
-               "y" : 4,
-               "name" : "Roger Bell_West"
+               "name" : "Roger Bell_West",
+               "y" : 4
             },
             {
+               "drilldown" : "Simon Green",
                "name" : "Simon Green",
-               "y" : 3,
-               "drilldown" : "Simon Green"
+               "y" : 3
             },
             {
-               "name" : "Simon Proctor",
                "y" : 2,
-               "drilldown" : "Simon Proctor"
+               "drilldown" : "Simon Proctor",
+               "name" : "Simon Proctor"
             },
             {
                "name" : "Stuart Little",
-               "y" : 4,
-               "drilldown" : "Stuart Little"
+               "drilldown" : "Stuart Little",
+               "y" : 4
             },
             {
                "y" : 3,
@@ -556,18 +544,38 @@
                "drilldown" : "Ulrich Rieke"
             },
             {
+               "drilldown" : "W. Luis Mochan",
                "name" : "W. Luis Mochan",
-               "y" : 3,
-               "drilldown" : "W. Luis Mochan"
+               "y" : 3
             },
             {
-               "name" : "Wanderdoc",
                "y" : 2,
+               "name" : "Wanderdoc",
                "drilldown" : "Wanderdoc"
             }
          ]
       }
    ],
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         }
+      }
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "subtitle" : {
+      "text" : "[Champions: 30] Last updated at 2021-07-25 22:13:15 GMT"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
    "legend" : {
       "enabled" : 0
    }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 11cd3edcc9..b17c496dd5 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,18 +1,49 @@
 {
+   "subtitle" : {
+      "text" : "Last updated at 2021-07-25 22:13:15 GMT"
+   },
    "xAxis" : {
-      "type" : "category",
       "labels" : {
          "style" : {
             "fontFamily" : "Verdana, sans-serif",
             "fontSize" : "13px"
          }
-      }
+      },
+      "type" : "category"
    },
    "legend" : {
       "enabled" : "false"
    },
+   "chart" : {
+      "type" : "column"
+   },
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
+   "title" : {
+      "text" : "The Weekly Challenge Contributions [2019 - 2021]"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : null
+      },
+      "min" : 0
+   },
    "series" : [
       {
+         "dataLabels" : {
+            "enabled" : "true",
+            "style" : {
+               "fontFamily" : "Verdana, sans-serif",
+               "fontSize" : "13px"
+            },
+            "color" : "#FFFFFF",
+            "align" : "right",
+            "y" : 10,
+            "rotation" : -90,
+            "format" : "{point.y:.0f}"
+         },
+         "name" : "Contributions",
          "data" : [
             [
                "Blog",
@@ -20,44 +51,13 @@
             ],
             [
                "Perl",
-               5844
+               5846
             ],
             [
                "Raku",
-               3650
+               3652
             ]
-         ],
-         "dataLabels" : {
-            "y" : 10,
-            "align" : "right",
-            "format" : "{point.y:.0f}",
-            "rotation" : -90,
-            "style" : {
-               "fontSize" : "13px",
-               "fontFamily" : "Verdana, sans-serif"
-            },
-            "color" : "#FFFFFF",
-