- Added solutions by Colin Crain.

19 files changed, 1759 insertions, 1468 deletions

diff --git a/challenge-149/colin-crain/blog1.txt b/challenge-149/colin-crain/blog1.txt
new file mode 100644
index 0000000000..563eb7702e
--- /dev/null
+++ b/challenge-149/colin-crain/blog1.txt
@@ -0,0 +1 @@
+https://colincrain.com/2022/01/30/that-big-ol-squarell-be-just-perfect
diff --git a/challenge-149/colin-crain/perl/ch-1.pl b/challenge-149/colin-crain/perl/ch-1.pl
new file mode 100755
index 0000000000..8bc3c45c2f
--- /dev/null
+++ b/challenge-149/colin-crain/perl/ch-1.pl
@@ -0,0 +1,60 @@
+#!/Users/colincrain/perl5/perlbrew/perls/perl-5.32.0/bin/perl

+#

+#       fib-sums.pl

+#

+#       Fibonacci Digit Sum

+# 

+#         Submitted by: Roger Bell_West

+# 

+#         Given an input $N, generate the first $N numbers for which the

+#         sum of their digits is a Fibonacci number.

+# 

+#         Example

+#         f(20)=[0, 1, 2, 3, 5, 8, 10, 11, 12, 14, 17, 20, 21, 23, 26, 30, 32, 35, 41, 44]

+

+#           6591     <-- 1,000th value

+#           13380892 <-- 1,000,000th value

+#

+#

+#       © 2022 colin crain

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

+

+

+

+use warnings;

+use strict;

+use utf8;

+use feature ":5.26";

+use feature qw(signatures);

+no warnings 'experimental::signatures';

+

+my $N = shift // 1081;

+my $candidate;

+my @out = (0);

+

+while ( ++$candidate ) {

+    push @out, $candidate if is_fib( digisum($candidate) );

+    last if @out == $N;

+}

+

+local $" = ', ';

+say "@out";

+

+sub digisum ( $num ) {

+    my $sum;

+    $sum += substr $num, $_-1, 1 for (1..length $num);

+    return $sum;   

+}

+

+sub is_fib ( $num ) {

+    state @fibs = ( 0, 1 );

+    state %fhash = map { $_ => undef } @fibs;

+    while ( $fibs[-1]+$fibs[-2] <= $num ) {

+        my $next = $fibs[-1]+$fibs[-2];

+        push @fibs, $next;

+        $fhash{$next} = undef;

+    }

+    return 1 if exists $fhash{$num};

+    return 0;

+}

+

diff --git a/challenge-149/colin-crain/perl/ch-2.pl b/challenge-149/colin-crain/perl/ch-2.pl
new file mode 100755
index 0000000000..839e27e003
--- /dev/null
+++ b/challenge-149/colin-crain/perl/ch-2.pl
@@ -0,0 +1,154 @@
+#!/Users/colincrain/perl5/perlbrew/perls/perl-5.32.0/bin/perl

+#

+#       big-ole-p-square.pl

+#

+#         Largest Square

+#         Submitted by: Roger Bell_West

+# 

+#         Given a number base, derive the largest perfect square with no

+#         repeated digits and return it as a string. 

+#         (For base>10, use ‘A’..‘Z’.)

+# 

+#         Example:

+#             f(2)="1"

+#             f(4)="3201"

+#             f(10)="9814072356"

+#             f(12)="B8750A649321"

+#

+#     in base 13: CC5244 squared is CBA504216873

+

+#     found 198003269696 squared is: 3.92052948103069e+22

+#     in base 18: HH79A9GDE squared is HGF1937D5B4E06A8C2

+#     real	22m8.960s

+#     user	16m5.258s

+#     sys	3m7.834s

+

+#     found 1404376502502 squared is: 1.97227336077975e+24

+#     in base 19: 46D2400C25 squared is IHGD2B086517E3ACF94

+#     real	82m49.393s

+#     user	82m38.563s

+#     sys	0m2.744s

+

+

+#       © 2022 colin crain

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

+

+

+

+use warnings;

+use strict;

+use utf8;

+use feature ":5.26";

+use feature qw(signatures);

+no warnings 'experimental::signatures';

+

+my $base = shift // 12;

+

+decrements ( $base );

+# constructive( $base );  <-- to call the constructive permutations method

+

+

+## decrementing solution:

+## from the square root of the largest base-digit number

+## square and check for repeating digits pass/fail

+sub decrements  ( $base ) {

+    my @alpha   = ( 0..9, "A".."Z" );

+    my $maxbase = join '', reverse @alpha[0..$base-1];

+    my $max     = int sqrt(base2dec( $maxbase, $base));

+    say "decrementing from $max";

+

+    my %h;

+    MAX: while ($max--) {

+        %h = ();

+        ## inlined convert square to base and detect repeats code

+        my $num = $max * $max;

+        while ( $num > 0  ) {

+            ++$h{$num % $base} > 1 and next MAX ;

+            $num = int( $num/$base ); 

+        }

+        

+        ## print result found

+        say "found $max squared is: ", $max * $max;

+        my $bout   = dec2base( $max, $base );

+        my $bsqout = dec2base( $max * $max, $base );

+        say "in base $base: $bout squared is $bsqout";

+        last;

+    }

+}

+

+

+sub repeats ( $num ) {

+## checks for repeating digits pass/fail

+    my %h;

+    ++$h{$_} > 1 and return 1 for split //, $num ;

+    return 0;

+}

+

+sub dec2base ( $num, $base ) {

+## converts from base-10 to base-n : n = 2..36

+    my @alpha = ( 0..9, "A".."Z" );

+    my $rem; 

+    my $val = '';

+    while ( $num > 0  ) {

+        ($num, $rem) = (int( $num/$base ), $num % $base);   

+        $val = $alpha[$rem] . $val;

+    }

+    return $val;

+}

+

+sub repeats_in_base ( $num, $base ) {

+## combined dec2base + repeats code, pass/fail

+    my %h;

+    while ( $num > 0  ) {

+        ++$h{$num % $base} > 1 and return 1 ;

+        $num = int( $num/$base ); 

+    }

+}

+

+sub base2dec( $num, $base ) {

+    my %alpha;

+    my $n ;

+    $alpha{$_} = $n++ for ( 0..9, "A".."Z" );

+    my $out;

+    my $pos = 0;

+    for ( reverse split //, $num ) {

+        $out += $alpha{$_} * $base ** $pos++;

+    }

+    return $out;

+}

+

+

+### constructing complete solutions from all digits in base 

+### and testing for squareness

+

+sub constructive ( $base ) {

+    use Algorithm::Combinatorics qw( permutations );

+

+    my @arr = reverse (0..$base-1);

+    my $iter = permutations( \@arr );

+    my $c;

+    my $dec;

+    say "permuting @arr";

+

+    while (my $p = $iter->next) {

+        $dec = perm2dec( $p, $base );

+        my $sq = int sqrt $dec;

+        last if $sq * $sq == $dec;    

+    }

+    

+    say "constructive:";

+    say "found $dec" ;

+    my $bout = dec2base( $dec, $base );

+    say "in base $base: $bout";

+}

+

+sub perm2dec ( $arr, $base ) {

+    my $out;

+    my $pos = 0;

+    for ( reverse $arr->@* ) {

+        $out += $_ * $base ** $pos++;

+    }

+    return $out;

+}

+

+

diff --git a/challenge-149/colin-crain/raku/ch-1.raku b/challenge-149/colin-crain/raku/ch-1.raku
new file mode 100755
index 0000000000..e765e25ce3
--- /dev/null
+++ b/challenge-149/colin-crain/raku/ch-1.raku
@@ -0,0 +1,30 @@
+#!/usr/bin/env perl6
+#
+#
+#       fib-sums.raku
+#
+#
+#
+#       © 2022 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+
+unit sub MAIN ( $N = 25 ) ;
+
+sub is_fib ( $num ) {
+    state @fibs = (0, 1, 1, * + * ... *);
+    state %fh;
+    state $n = 0;
+    while @fibs[$n] < $num  {
+        %fh{ @fibs[++$n] } = 1; 
+    }
+
+    return %fh{$num}:exists
+        ?? 1
+        !! 0
+}
+
+my  @out = (0, | grep { is_fib( $_.comb.sum ) }, (0..*) )[0..$N-1];
+say @out;
+
diff --git a/challenge-149/colin-crain/raku/ch-2.raku b/challenge-149/colin-crain/raku/ch-2.raku
new file mode 100755
index 0000000000..001dd97105
--- /dev/null
+++ b/challenge-149/colin-crain/raku/ch-2.raku
@@ -0,0 +1,38 @@
+#!/usr/bin/env perl6
+#
+#
+#       big-ole-p-square.raku
+#
+#
+#
+#       © 2022 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+
+unit sub MAIN ( $base = 8 ) ;
+
+
+my $max = (1 ~ 0 x $base).parse-base($base)
+                         .sqrt
+                         .Int ;
+            
+repeat { $max-- } while repeats-in-base( $max², $base );
+    
+say qq:to/END/;     
+    found $max squared is {$max²}
+    in base $base: {$max.base($base)} squared is {$max².base($base)}
+    END
+    
+
+sub repeats-in-base ( $num, $base ) {
+
+    return ($num.base($base)
+                .comb
+                .Bag 
+                .values
+                .sort)[*-1] > 1
+        ?? 1
+        !! 0 ;
+}
+    
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index b860a36080..df2e180504 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,138 +1,26 @@
 {
-   "series" : [
-      {
-         "name" : "The Weekly Challenge - 149",
-         "colorByPoint" : 1,
-         "data" : [
-            {
-               "y" : 4,
-               "name" : "Abigail",
-               "drilldown" : "Abigail"
-            },
-            {
-               "drilldown" : "Alexander Pankoff",
-               "y" : 2,
-               "name" : "Alexander Pankoff"
-            },
-            {
-               "name" : "Athanasius",
-               "y" : 4,
-               "drilldown" : "Athanasius"
-            },
-            {
-               "drilldown" : "Cheok-Yin Fung",
-               "y" : 2,
-               "name" : "Cheok-Yin Fung"
-            },
-            {
-               "y" : 1,
-               "name" : "Colin Crain",
-               "drilldown" : "Colin Crain"
-            },
-            {
-               "y" : 4,
-               "name" : "Dave Jacoby",
-               "drilldown" : "Dave Jacoby"
-            },
-            {
-               "name" : "E. Choroba",
-               "y" : 2,
-               "drilldown" : "E. Choroba"
-            },
-            {
-               "drilldown" : "Flavio Poletti",
-               "name" : "Flavio Poletti",
-               "y" : 6
-            },
-            {
-               "drilldown" : "James Smith",
-               "name" : "James Smith",
-               "y" : 3
-            },
-            {
-               "drilldown" : "Jan Krnavek",
-               "name" : "Jan Krnavek",
-               "y" : 2
-            },
-            {
-               "drilldown" : "Jorg Sommrey",
-               "y" : 2,
-               "name" : "Jorg Sommrey"
-            },
-            {
-               "name" : "Laurent Rosenfeld",
-               "y" : 5,
-               "drilldown" : "Laurent Rosenfeld"
-            },
-            {
-               "drilldown" : "Lubos Kolouch",
-               "y" : 1,
-               "name" : "Lubos Kolouch"
-            },
-            {
-               "name" : "Luca Ferrari",
-               "y" : 4,
-               "drilldown" : "Luca Ferrari"
-            },
-            {
-               "name" : "Mark Anderson",
-               "y" : 2,
-               "drilldown" : "Mark Anderson"
-            },
-            {
-               "drilldown" : "Matthew Neleigh",
-               "name" : "Matthew Neleigh",
-               "y" : 2
-            },
-            {
-               "drilldown" : "Mohammad S Anwar",
-               "name" : "Mohammad S Anwar",
-               "y" : 2
-            },
-            {
-               "name" : "Niels van Dijke",
-               "y" : 1,
-               "drilldown" : "Niels van Dijke"
-            },
-            {
-               "name" : "Pete Houston",
-               "y" : 2,
-               "drilldown" : "Pete Houston"
-            },
-            {
-               "name" : "Peter Campbell Smith",
-               "y" : 3,
-               "drilldown" : "Peter Campbell Smith"
-            },
-            {
-               "y" : 1,
-               "name" : "Robert DiCicco",
-               "drilldown" : "Robert DiCicco"
-            },
-            {
-               "name" : "Roger Bell_West",
-               "y" : 5,
-               "drilldown" : "Roger Bell_West"
-            },
-            {
-               "drilldown" : "Ulrich Rieke",
-               "y" : 3,
-               "name" : "Ulrich Rieke"
-            },
-            {
-               "y" : 3,
-               "name" : "W. Luis Mochan",
-               "drilldown" : "W. Luis Mochan"
-            }
-         ]
+   "chart" : {
+      "type" : "column"
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         }
       }
-   ],
+   },
    "legend" : {
       "enabled" : 0
    },
+   "subtitle" : {
+      "text" : "[Champions: 24] Last updated at 2022-01-31 01:24:52 GMT"
+   },
    "drilldown" : {
       "series" : [
          {
+            "name" : "Abigail",
             "data" : [
                [
                   "Perl",
@@ -143,21 +31,19 @@
                   2
                ]
             ],
-            "id" : "Abigail",
-            "name" : "Abigail"
+            "id" : "Abigail"
          },
          {
             "name" : "Alexander Pankoff",
-            "id" : "Alexander Pankoff",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "id" : "Alexander Pankoff"
          },
          {
-            "name" : "Athanasius",
             "data" : [
                [
                   "Perl",
@@ -168,10 +54,10 @@
                   2
                ]
             ],
-            "id" : "Athanasius"
+            "id" : "Athanasius",
+            "name" : "Athanasius"
          },
          {
-            "name" : "Cheok-Yin Fung",
             "data" : [
                [
                   "Perl",
@@ -182,20 +68,29 @@
                   1
                ]
             ],
-            "id" : "Cheok-Yin Fung"
+            "id" : "Cheok-Yin Fung",
+            "name" : "Cheok-Yin Fung"
          },
          {
-            "name" : "Colin Crain",
-            "id" : "Colin Crain",
             "data" : [
                [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
                   "Blog",
-                  1
+                  2
                ]
-            ]
+            ],
+            "id" : "Colin Crain",
+            "name" : "Colin Crain"
          },
          {
-            "id" : "Dave Jacoby",
+            "name" : "Dave Jacoby",
             "data" : [
                [
                   "Perl",
@@ -206,7 +101,7 @@
                   2
                ]
             ],
-            "name" : "Dave Jacoby"
+            "id" : "Dave Jacoby"
          },
          {
             "name" : "E. Choroba",
@@ -237,6 +132,7 @@
             "id" : "Flavio Poletti"
          },
          {
+            "id" : "James Smith",
             "data" : [
                [
                   "Perl",
@@ -247,31 +143,29 @@
                   1
                ]
             ],
-            "id" : "James Smith",
             "name" : "James Smith"
          },
          {
-            "name" : "Jan Krnavek",
+            "id" : "Jan Krnavek",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
-            "id" : "Jan Krnavek"
+            "name" : "Jan Krnavek"
          },
          {
-            "name" : "Jorg Sommrey",
             "id" : "Jorg Sommrey",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "name" : "Jorg Sommrey"
          },
          {
-            "name" : "Laurent Rosenfeld",
             "id" : "Laurent Rosenfeld",
             "data" : [
                [
@@ -286,19 +180,22 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "name" : "Laurent Rosenfeld"
          },
          {
+            "name" : "Lubos Kolouch",
             "data" : [
                [
                   "Perl",
                   1
                ]
             ],
-            "id" : "Lubos Kolouch",
-            "name" : "Lubos Kolouch"
+            "id" : "Lubos Kolouch"
          },
          {
+            "name" : "Luca Ferrari",
+            "id" : "Luca Ferrari",
             "data" : [
                [
                   "Raku",
@@ -308,19 +205,17 @@
                   "Blog",
                   2
                ]
-            ],
-            "id" : "Luca Ferrari",
-            "name" : "Luca Ferrari"
+            ]
          },
          {
-            "name" : "Mark Anderson",
             "id" : "Mark Anderson",
             "data" : [
                [
                   "Raku",
                   2
                ]
-            ]
+            ],
+            "name" : "Mark Anderson"
          },
          {
             "id" : "Matthew Neleigh",
@@ -333,7 +228,6 @@
             "name" : "Matthew Neleigh"
          },
          {
-            "name" : "Mohammad S Anwar",
             "id" : "Mohammad S Anwar",
             "data" : [
                [
@@ -344,30 +238,30 @@
                   "Raku",
                   1
                ]
-            ]
+            ],
+            "name" : "Mohammad S Anwar"
          },
          {
+            "name" : "Niels van Dijke",
+            "id" : "Niels van Dijke",
             "data" : [
                [
                   "Perl",
                   1
                ]
-            ],
-            "id" : "Niels van Dijke",
-            "name" : "Niels van Dijke"
+            ]
          },
          {
+            "name" : "Pete Houston",
+            "id" : "Pete Houston",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ],
-            "id" : "Pete Houston",
-            "name" : "Pete Houston"
+            ]
          },
          {
-            "name" : "Peter Campbell Smith",
             "id" : "Peter Campbell Smith",
             "data" : [
                [
@@ -378,17 +272,18 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "name" : "Peter Campbell Smith"
          },
          {
-            "name" : "Robert DiCicco",
+            "id" : "Robert DiCicco",
             "data" : [
                [
                   "Perl",
                   1
                ]
             ],
-            "id" : "Robert DiCicco"
+            "name" : "Robert DiCicco"
          },
          {
             "name" : "Roger Bell_West",
@@ -409,7 +304,6 @@
             ]
          },
          {
-            "name" : "Ulrich Rieke",
             "id" : "Ulrich Rieke",
             "data" : [
                [
@@ -420,10 +314,11 @@
                   "Raku",
                   1
                ]
-            ]
+            ],
+            "name" : "Ulrich Rieke"
          },
          {
-            "id" : "W. Luis Mochan",
+            "name" : "W. Luis Mochan",
             "data" : [
                [
                   "Perl",
@@ -434,39 +329,152 @@
                   1
                ]
             ],
-            "name" : "W. Luis Mochan"
+            "id" : "W. Luis Mochan"
          }
       ]
    },
+   "series" : [
+      {
+         "name" : "The Weekly Challenge - 149",
+         "data" : [
+            {
+               "name" : "Abigail",
+               "drilldown" : "Abigail",
+               "y" : 4
+            },
+            {
+               "drilldown" : "Alexander Pankoff",
+               "y" : 2,
+               "name" : "Alexander Pankoff"
+            },
+            {
+               "name" : "Athanasius",
+               "y" : 4,
+               "drilldown" : "Athanasius"
+            },
+            {
+               "name" : "Cheok-Yin Fung",
+               "drilldown" : "Cheok-Yin Fung",
+               "y" : 2
+            },
+            {
+               "y" : 6,
+               "drilldown" : "Colin Crain",
+               "name" : "Colin Crain"
+            },
+            {
+               "y" : 4,
+               "drilldown" : "Dave Jacoby",
+               "name" : "Dave Jacoby"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "E. Choroba",
+               "name" : "E. Choroba"
+            },
+            {
+               "name" : "Flavio Poletti",
+               "drilldown" : "Flavio Poletti",
+               "y" : 6
+            },
+            {
+               "name" : "James Smith",
+               "y" : 3,
+               "drilldown" : "James Smith"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Jan Krnavek",
+               "name" : "Jan Krnavek"
+            },
+            {
+               "name" : "Jorg Sommrey",
+               "y" : 2,
+               "drilldown" : "Jorg Sommrey"
+            },
+            {
+               "name" : "Laurent Rosenfeld",
+               "y" : 5,
+               "drilldown" : "Laurent Rosenfeld"
+            },
+            {
+               "drilldown" : "Lubos Kolouch",
+               "y" : 1,
+               "name" : "Lubos Kolouch"
+            },
+            {
+               "name" : "Luca Ferrari",
+               "drilldown" : "Luca Ferrari",
+               "y" : 4
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Mark Anderson",
+               "name" : "Mark Anderson"
+            },
+            {
+               "name" : "Matthew Neleigh",
+               "y" : 2,
+               "drilldown" : "Matthew Neleigh"
+            },
+            {
+               "name" : "Mohammad S Anwar",
+               "drilldown" : "Mohammad S Anwar",
+               "y" : 2
+            },
+            {
+               "name" : "Niels van Dijke",
+               "y" : 1,
+               "drilldown" : "Niels van Dijke"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Pete Houston",
+               "name" : "Pete Houston"
+            },
+            {
+               "drilldown" : "Peter Campbell Smith",
+               "y" : 3,
+               "name" : "Peter Campbell Smith"
+            },
+            {
+               "name" : "Robert DiCicco",
+               "drilldown" : "Robert DiCicco",
+               "y" : 1
+            },
+            {
+               "drilldown" : "Roger Bell_West",
+               "y" : 5,
+               "name" : "Roger Bell_West"
+            },
+            {
+               "drilldown" : "Ulrich Rieke",
+               "y" : 3,
+               "name" : "Ulrich Rieke"
+            },
+            {
+               "drilldown" : "W. Luis Mochan",
+               "y" : 3,
+               "name" : "W. Luis Mochan"
+            }
+         ],
+         "colorByPoint" : 1
+      }
+   ],
    "xAxis" : {
       "type" : "category"
    },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "enabled" : 1,
-            "format" : "{point.y}"
-         },
-         "borderWidth" : 0
-      }
-   },
-   "subtitle" : {
-      "text" : "[Champions: 24] Last updated at 2022-01-30 18:36:52 GMT"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
    "title" : {
       "text" : "The Weekly Challenge - 149"
    },
    "tooltip" : {
+      "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/>",
-      "followPointer" : 1
+      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>"
    },
-   "chart" : {
-      "type" : "column"
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 2ac017e1bc..1a0d1a7849 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"
+         }
+      }
+   },
+   "title" : {
+      "text" : "The Weekly Challenge Contributions [2019 - 2021]"
+   },
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
    "yAxis" : {
-      "min" : 0,
       "title" : {
          "text" : null
-      }
+      },
+      "min" : 0
+   },
+   "chart" : {
+      "type" : "column"
    },
    "subtitle" : {
-      "text" : "Last updated at 2022-01-30 18:36:52 GMT"
+      "text" : "Last updated at 2022-01-31 01:24:52 GMT"
    },
    "legend" : {
       "enabled" : "false"
    },
    "series" : [
       {
+         "name" : "Contributions",
          "data" : [
             [
                "Blog",
-               2230
+               2231
             ],
             [
                "Perl",
-               7186
+               7188
             ],
             [
                "Raku",
-               4320
+               4322
             ]
          ],
          "dataLabels" : {
             "enabled" : "true",
-            "rotation" : -90,
             "format" : "{point.y:.0f}",
             "color" : "#FFFFFF",
             "style" : {
-               "fontSize" : "13px",
-               "fontFamily" : "Verdana, sans-serif"
+               "fontFamily" : "Verdana, sans-serif",
+               "fontSize" : "13px"
             },
             "y" : 10,
+            "rotation" : -90,
             "align" : "right"
-         },
-         "name" : "Contributions"
-      }
-   ],
-   "xAxis" : {
-      "labels" : {
-         "style" : {
-            "fontSize" : "13px",
-            "fontFamily" : "Verdana, sans-serif"
          }
-      },
-      "type" : "category"
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
-   },
-   "title" : {
-      "text" : "The Weekly Challenge Contributions [2019 - 2021]"
-   }
+      }
+   ]
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index fcc28f3c10..a6e525269a 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,152 +1,157 @@
 {
-   "chart" : {
-      "type" : "column"
+   "xAxis" : {
+      "type" : "category"
+   },
+   "title" : {
+      "text" : "The Weekly Challenge Language"
    },
    "tooltip" : {
+      "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
       "headerFormat" : "<span style=\"font-size:11px\"></span>",
-      "followPointer" : "true",
-      "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>"
+      "followPointer" : "true"
    },
-   "title" : {
-      "text" : "The Weekly Challenge Language"
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"