Merge remote-tracking branch 'upstream/master'

23 files changed, 1381 insertions, 955 deletions

diff --git a/challenge-023/mark-anderson/perl5/ch-1.pl b/challenge-023/mark-anderson/perl5/ch-1.pl
new file mode 100644
index 0000000000..c225e84204
--- /dev/null
+++ b/challenge-023/mark-anderson/perl5/ch-1.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+
+use Modern::Perl '2018';
+use Getopt::Long;
+
+#usage: perl ch-1.pl -n=2 -- -11 13 -13 12;
+
+my $n = 1;
+GetOptions('n=i' => \$n) ;
+
+my @X = (5, 9, 2, 8, 1, 6);
+@X = @ARGV if @ARGV;
+
+while($n and @X > 1) {
+    my @Y;
+    foreach my $i (0 .. ($#X - 1)) {
+        push @Y, $X[$i+1] - $X[$i];
+    }
+    $n--;
+    @X = @Y;
+}
+
+$" = ", ";
+say "@X";
diff --git a/challenge-023/mark-anderson/perl5/ch-2.pl b/challenge-023/mark-anderson/perl5/ch-2.pl
new file mode 100644
index 0000000000..050d75104a
--- /dev/null
+++ b/challenge-023/mark-anderson/perl5/ch-2.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+
+use Modern::Perl      '2018';
+use Math::Prime::Util 'factor';
+
+my $num = shift || 228;
+say join ", ", factor($num);
diff --git a/challenge-023/mark-anderson/perl5/ch-3.pl b/challenge-023/mark-anderson/perl5/ch-3.pl
new file mode 100644
index 0000000000..53603f7ab7
--- /dev/null
+++ b/challenge-023/mark-anderson/perl5/ch-3.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+
+use Modern::Perl '2018';
+use Mojo::UserAgent;
+
+my $ua = Mojo::UserAgent->new;
+
+my $array = $ua->get("https://www.poemist.com/api/v1/randompoems")
+            ->result->json;
+
+foreach my $i (keys $array->@*) {
+    printf "%-7s%s\n",   "URL:",   $array->[$i]->{url};
+    printf "%-7s%s\n",   "Poet:",  $array->[$i]->{poet}->{name};
+    printf "%-7s%s\n\n", "Title:", $array->[$i]->{title};
+    say                            $array->[$i]->{content}, "\n";
+}
diff --git a/challenge-023/randy-lauen/perl5/ch-1.pl b/challenge-023/randy-lauen/perl5/ch-1.pl
new file mode 100644
index 0000000000..2b8533c330
--- /dev/null
+++ b/challenge-023/randy-lauen/perl5/ch-1.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/env perl
+
+=head1 SYNOPSIS
+
+Task:
+Create a script that prints nth order forward difference series. You should be a 
+able to pass the list of numbers and order number as command line parameters.
+
+Usage:
+    $ perl ch-1.pl --order=1 5 9 2 8 1 6
+
+=cut
+
+use strict;
+use warnings;
+use feature 'say';
+
+use Getopt::Long;
+
+my $order;
+GetOptions( 'order=i' => \$order ) or die;
+
+my @numbers = @ARGV;
+
+foreach my $order ( 1 .. $order ) {
+    @numbers = map { $numbers[ $_ ] - $numbers[ $_ - 1 ] } 1 .. $#numbers;
+    say "$order: " . join(', ', @numbers);
+    last if @numbers == 1;
+}
+
diff --git a/challenge-023/randy-lauen/perl5/ch-2.pl b/challenge-023/randy-lauen/perl5/ch-2.pl
new file mode 100644
index 0000000000..45aae0214e
--- /dev/null
+++ b/challenge-023/randy-lauen/perl5/ch-2.pl
@@ -0,0 +1,50 @@
+#!/usr/bin/env perl
+
+=head1 SYNOPSIS
+
+Task:
+Create a script that prints Prime Decomposition of a given number. The prime decomposition of a number is 
+defined as a list of prime numbers which when all multiplied together, are equal to that number. For example, 
+the Prime decomposition of 228 is 2,2,3,19 as 228 = 2 * 2 * 3 * 19.
+
+Usage:
+    $ perl ch-2.pl 228
+
+Notes:
+I used the algorithm described here: https://www.geeksforgeeks.org/print-all-prime-factors-of-a-given-number/ 
+
+=cut
+
+use strict;
+use warnings;
+use feature 'say';
+
+my $num = $ARGV[0] // '';
+die "Must pass an integer > 0 as the first argument\n" unless $num && $num =~ /^\d+$/;
+
+say $num == 1
+    ? "No prime factors for 1"
+    : join(', ', prime_factors( $num ) )
+;
+
+exit 0;
+
+sub prime_factors {
+    my $n = shift;
+
+    my @factors;
+    while ( $n % 2 == 0 ) {
+        push @factors, 2;
+        $n /= 2;
+    }
+    for ( my $i = 3; $i <= sqrt($n); $i += 2 ) {
+        while ( $n % $i == 0 ) {
+            push @factors, $i;
+            $n /= $i;
+        }
+    }
+    push @factors, $n if $n > 2;
+
+    return @factors;
+}
+
diff --git a/challenge-023/randy-lauen/perl5/ch-3.pl b/challenge-023/randy-lauen/perl5/ch-3.pl
new file mode 100644
index 0000000000..d4fd4c6973
--- /dev/null
+++ b/challenge-023/randy-lauen/perl5/ch-3.pl
@@ -0,0 +1,44 @@
+#!/usr/bin/env perl
+
+=head2 SYNOPSIS
+
+Task:
+Write a script to use Random Poems API.
+
+Usage:
+    $ perl ch-3.pl
+
+Notes:
+This script prints the shortest poem returned by the randompoems endpoint.
+The Poemist API docs are located here: https://poemist.github.io/poemist-apidoc/
+
+=cut
+
+use v5.28;
+use strict;
+use warnings;
+
+use JSON qw( decode_json );
+use List::UtilsBy qw( nsort_by );
+use Net::Curl::Simple ();
+
+binmode(STDOUT, "encoding(UTF-8)");
+
+my $curl = Net::Curl::Simple->new();
+$curl->get( 'https://www.poemist.com/api/v1/randompoems' );
+
+my ($poem) = 
+    nsort_by { length( $_->{content} ) }
+    map { $_->@* }
+    decode_json( $curl->content )
+;
+
+say qq["$poem->{title}" by $poem->{poet}->{name}];
+say '';
+say $poem->{content};
+say '';
+say $poem->{url};
+
+exit 0;
+
+
diff --git a/challenge-023/randy-lauen/perl6/ch-1.p6 b/challenge-023/randy-lauen/perl6/ch-1.p6
new file mode 100644
index 0000000000..a239b28586
--- /dev/null
+++ b/challenge-023/randy-lauen/perl6/ch-1.p6
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl6
+
+=begin SYNOPSIS
+
+Task:
+Create a script that prints nth order forward difference series. You should be a 
+able to pass the list of numbers and order number as command line parameters.
+
+Usage:
+    $ perl6 ch-1.p6 --order=1 5 9 2 8 1 6
+
+Notes:
+I don't really understand all the intricacies of the << hyper operator and what 
+the different pointy directions mean, especially when the lists are different 
+sizes. But, after fiddling with it in the perl6 REPL, I managed to find the 
+behavior I was looking for.
+
+=end SYNOPSIS
+
+sub MAIN( Int :$order!, *@numbers where *.elems > 0 ) {
+    for 1 .. $order -> $i {
+        @numbers = @numbers.tail(*-1) >>->> @numbers;
+        say "$i: @numbers.join(', ')";
+        last if @numbers.elems == 1;
+    }
+}
+
diff --git a/challenge-023/randy-lauen/perl6/ch-2.p6 b/challenge-023/randy-lauen/perl6/ch-2.p6
new file mode 100644
index 0000000000..c5a5c1bd5c
--- /dev/null
+++ b/challenge-023/randy-lauen/perl6/ch-2.p6
@@ -0,0 +1,59 @@
+#!/usr/bin/env perl6
+
+=begin SYNOPSIS
+
+Task:
+Create a script that prints Prime Decomposition of a given number. The prime decomposition of a number is 
+defined as a list of prime numbers which when all multiplied together, are equal to that number. For example, 
+the Prime decomposition of 228 is 2,2,3,19 as 228 = 2 * 2 * 3 * 19.
+
+Usage:
+    $ perl6 ch-2.p6 228     # print out prime factors
+    $ perl6 ch-2.p6 --test  # test results against Prime::Factor
+
+Notes:
+I used the algorithm described here: https://www.geeksforgeeks.org/print-all-prime-factors-of-a-given-number/ 
+
+=end SYNOPSIS
+
+sub my-prime-factors( Int $n is copy ) {
+    my @factors;
+    while $n %% 2 {
+        @factors.push: 2;
+        $n = ($n / 2).Int;
+    }
+    for 3, 5 ... sqrt($n) -> $i {
+        while $n %% $i {
+            @factors.push: $i;
+            $n = ($n / $i).Int;
+        }
+    }
+    @factors.push: $n if $n > 2;
+
+    return @factors;
+}
+
+
+multi MAIN( Int $input where * > 0 ) {
+    my @factors = my-prime-factors( $input );
+    say @factors.elems
+        ?? @factors.join(', ')
+        !! "No prime factors for: $input";
+    ;
+}
+
+
+multi MAIN( Bool :$test! ) {
+    use Test;
+    use Prime::Factor;
+
+    plan 1;
+
+    my $max = 10_000;
+    my %mine     = hyper for 1 .. $max { $_ => my-prime-factors($_).List };
+    my %expected = hyper for 1 .. $max { $_ => prime-factors($_).List };
+
+    is-deeply( %mine, %expected, "all prime factors up to $max match" );
+}
+
+
diff --git a/challenge-023/randy-lauen/perl6/ch-3.p6 b/challenge-023/randy-lauen/perl6/ch-3.p6
new file mode 100644
index 0000000000..7ca7213c0a
--- /dev/null
+++ b/challenge-023/randy-lauen/perl6/ch-3.p6
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl6
+
+=begin SYNOPSIS
+
+Task:
+Write a script to use Random Poems API.
+
+Usage:
+    $ perl6 ch-3.p6
+
+Notes:
+This script prints the shortest poem returned by the randompoems endpoint.
+The Poemist API docs are located here: https://poemist.github.io/poemist-apidoc/
+
+=end SYNOPSIS
+
+use Cro::HTTP::Client;
+
+my $response = await Cro::HTTP::Client.get( "https://www.poemist.com/api/v1/randompoems" );
+my $json = await $response.body;
+my $poem = $json.sort({ .<content>.chars }).first;
+
+say qq["$poem<title>" by $poem<poet><name>];
+say '';
+say $poem<content>;
+say '';
+say $poem<url>;
+
+exit;
+
+
diff --git a/challenge-023/ruben-westerberg/README b/challenge-023/ruben-westerberg/README
index 26a2690833..fa2d20850a 100644
--- a/challenge-023/ruben-westerberg/README
+++ b/challenge-023/ruben-westerberg/README
@@ -2,9 +2,17 @@ Solution by Ruben Westerberg
 
 ch-1.pl and ch-1.p6
 ===
-Run the program to calculate the first ten sexy prime pairs
+Run the program to calculate the forward difference of a number sequence entered on the command line.
+If no order is specified an order of 1 is used and if no sequence is specified a example sequence is used
+
+	ch-1.pl usage:
+		./ch-1.pl -o 2 -- 1 3 6 9
+	ch-2.p6 usage:
+		./ch-1.p6 --order=2 1 3 6 9
 
 ch-2.pl and ch-2.p6
 ===
-Run the program with a command line argument to demonstrate the LZW encoding. With no argument, a demonstration string is used
+Run the program to display the prime decomposition of the number intered on the command line.
+If no number is specifed the demo value of 228 is decomposed.
+
 
diff --git a/challenge-023/ruben-westerberg/perl5/ch-1.pl b/challenge-023/ruben-westerberg/perl5/ch-1.pl
new file mode 100755
index 0000000000..9751a5ac90
--- /dev/null
+++ b/challenge-023/ruben-westerberg/perl5/ch-1.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use List::Util qw<reduce>;
+use Getopt::Long;
+use v5.26;
+my $order=1;
+
+GetOptions("order=i" => \$order);
+my @values=@ARGV?@ARGV:(5, 9, 2, 8, 1, 6);
+
+for (0..$order-1) {
+	@values=map( { reduce {$a-$b} @values[$_, $_-1];} 1..@values-1);
+}
+print join " ", @values;
diff --git a/challenge-023/ruben-westerberg/perl5/ch-2.pl b/challenge-023/ruben-westerberg/perl5/ch-2.pl
new file mode 100755
index 0000000000..50e9cc2d98
--- /dev/null
+++ b/challenge-023/ruben-westerberg/perl5/ch-2.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use v5.26;
+
+my $i=0;
+my @primes;
+my @factors;
+my $value=my $number=$ARGV[0]//228;
+while (1) {	
+	push(@primes, nextPrime()) if $i >= @primes;
+	last if $primes[$i]>$value;
+	if ($value%$primes[$i]==0) {
+		$value/=$primes[$i];
+		push @factors, $primes[$i];
+		$i=0;
+	}
+	else {
+		$i++;
+	}
+}
+print "Prime decomposition of $number: ",join " ", @factors if @factors >1;
+print "No decomposition for $number\n" if @factors ==1; 
+sub nextPrime {
+	state $t=1;
+	while (1) {
+
+		$t++;
+		my $sum=0;
+		for (1..(int $t/2)) {
+			$sum++ if $t % $_ == 0;
+			last if $sum >1;
+		}
+		last if $sum==1;
+	}
+	$t;
+}
diff --git a/challenge-023/ruben-westerberg/perl6/ch-1.p6 b/challenge-023/ruben-westerberg/perl6/ch-1.p6
new file mode 100755
index 0000000000..19dd7c2b31
--- /dev/null
+++ b/challenge-023/ruben-westerberg/perl6/ch-1.p6
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl6
+#
+sub MAIN(:$order=1,*@values){
+	@values=(5, 9, 2, 8, 1, 6 ) if !@values;
+	@values= map( { [-] @values[$_,$_-1]}, @values.keys[1..*-1]) for ^$order ;
+	put @values;
+}
diff --git a/challenge-023/ruben-westerberg/perl6/ch-2.p6 b/challenge-023/ruben-westerberg/perl6/ch-2.p6
new file mode 100755
index 0000000000..3753c92e07
--- /dev/null
+++ b/challenge-023/ruben-westerberg/perl6/ch-2.p6
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl6
+
+
+sub MAIN(*@a) {
+	my $primes=(0..*).grep({.is-prime}).cache;
+	my @factors;
+	my $i=0;
+	my $value=my $number=@a[0]//228;
+	loop {
+		if $value%%$primes[$i] {
+			$value/=$primes[$i];
+			@factors.push: $primes[$i];
+			$i=0;
+		}
+		else {
+			$i++;
+		}
+		last if $primes[$i]>$value;
+	}
+	put "Prime decomposition of $number: @factors[]" if @factors >1;
+	put  "No decomposition for $number" if @factors ==1;
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index a438aa429c..15c2faed27 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,26 +1,103 @@
 {
+   "title" : {
+      "text" : "Perl Weekly Challenge - 023"
+   },
    "tooltip" : {
-      "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/>",
-      "followPointer" : 1
+      "followPointer" : 1,
+      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>"
    },
-   "chart" : {
-      "type" : "column"
+   "subtitle" : {
+      "text" : "[Champions: 10] Last updated at 2019-08-29 14:29:17 GMT"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         },
+         "borderWidth" : 0
+      }
+   },
+   "series" : [
+      {
+         "colorByPoint" : 1,
+         "name" : "Perl Weekly Challenge - 023",
+         "data" : [
+            {
+               "y" : 2,
+               "name" : "Andrezgz",
+               "drilldown" : "Andrezgz"
+            },
+            {
+               "drilldown" : "Arne Sommer",
+               "y" : 5,
+               "name" : "Arne Sommer"
+            },
+            {
+               "name" : "Duane Powell",
+               "y" : 2,
+               "drilldown" : "Duane Powell"
+            },
+            {
+               "drilldown" : "Laurent Rosenfeld",
+               "name" : "Laurent Rosenfeld",
+               "y" : 5
+            },
+            {
+               "drilldown" : "Mark Anderson",
+               "y" : 3,
+               "name" : "Mark Anderson"
+            },
+            {
+               "drilldown" : "Randy Lauen",
+               "y" : 6,
+               "name" : "Randy Lauen"
+            },
+            {
+               "drilldown" : "Roger Bell West",
+               "y" : 5,
+               "name" : "Roger Bell West"
+            },
+            {
+               "y" : 4,
+               "name" : "Ruben Westerberg",
+               "drilldown" : "Ruben Westerberg"
+            },
+            {
+               "name" : "Simon Proctor",
+               "y" : 2,
+               "drilldown" : "Simon Proctor"
+            },
+            {
+               "drilldown" : "Yet Ebreo",
+               "name" : "Yet Ebreo",
+               "y" : 6
+            }
+         ]
+      }
+   ],
+   "xAxis" : {
+      "type" : "category"
    },
    "drilldown" : {
       "series" : [
          {
-            "id" : "Andrezgz",
-            "name" : "Andrezgz",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "id" : "Andrezgz",
+            "name" : "Andrezgz"
          },
          {
-            "id" : "Arne Sommer",
             "name" : "Arne Sommer",
             "data" : [
                [
@@ -35,7 +112,8 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "Arne Sommer"
          },
          {
             "data" : [
@@ -44,11 +122,12 @@
                   2
                ]
             ],
-            "name" : "Duane Powell",
-            "id" : "Duane Powell"
+            "id" : "Duane Powell",
+            "name" : "Duane Powell"
          },
          {
             "name" : "Laurent Rosenfeld",
+            "id" : "Laurent Rosenfeld",
             "data" : [
                [
                   "Perl 5",
@@ -62,11 +141,33 @@
                   "Blog",
                   1
                ]
+            ]
+         },
+         {
+            "id" : "Mark Anderson",
+            "data" : [
+               [
+                  "Perl 5",
+                  3
+               ]
+            ],
+            "name" : "Mark Anderson"
+         },
+         {
+            "data" : [
+               [
+                  "Perl 5",
+                  3
+               ],
+               [
+                  "Perl 6",
+                  3
+               ]
             ],
-            "id" : "Laurent Rosenfeld"
+            "id" : "Randy Lauen",
+            "name" : "Randy Lauen"
          },
          {
-            "id" : "Roger Bell West",
             "name" : "Roger Bell West",
             "data" : [
                [
@@ -81,7 +182,22 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "Roger Bell West"
+         },
+         {
+            "id" : "Ruben Westerberg",
+            "data" : [
+               [
+                  "Perl 5",
+                  2
+               ],
+               [
+                  "Perl 6",
+                  2
+               ]
+            ],
+            "name" : "Ruben Westerberg"
          },
          {
             "data" : [
@@ -90,10 +206,12 @@
                   2
                ]
             ],
-            "name" : "Simon Proctor",
-            "id" : "Simon Proctor"
+            "id" : "Simon Proctor",
+            "name" : "Simon Proctor"
          },
          {
+            "name" : "Yet Ebreo",
+            "id" : "Yet Ebreo",
             "data" : [
                [
                   "Perl 5",
@@ -103,79 +221,14 @@
                   "Perl 6",
                   3
                ]
-            ],
-            "name" : "Yet Ebreo",
-            "id" : "Yet Ebreo"
+            ]
          }
       ]
    },
-   "xAxis" : {
-      "type" : "category"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
    "legend" : {
       "enabled" : 0
    },
-   "subtitle" : {
-      "text" : "[Champions: 7] Last updated at 2019-08-28 10:27:07 GMT"
-   },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "enabled" : 1,
-            "format" : "{point.y}"
-         },
-         "borderWidth" : 0
-      }
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 023"
-   },
-   "series" : [
-      {
-         "name" : "Perl Weekly Challenge - 023",
-         "data" : [
-            {
-               "y" : 2,
-               "drilldown" : "Andrezgz",
-               "name" : "Andrezgz"
-            },
-            {
-               "y" : 5,
-               "drilldown" : "Arne Sommer",
-               "name" : "Arne Sommer"
-            },
-            {
-               "drilldown" : "Duane Powell",
-               "name" : "Duane Powell",
-               "y" : 2
-            },
-            {
-               "y" : 5,
-               "name" : "Laurent Rosenfeld",
-               "drilldown" : "Laurent Rosenfeld"
-            },
-            {
-               "y" : 5,
-               "drilldown" : "Roger Bell West",
-               "name" : "Roger Bell West"
-            },
-            {
-               "drilldown" : "Simon Proctor",
-               "name" : "Simon Proctor",
-               "y" : 2
-            },
-            {
-               "drilldown" : "Yet Ebreo",
-               "name" : "Yet Ebreo",
-               "y" : 6
-            }
-         ],
-         "colorByPoint" : 1
-      }
-   ]
+   "chart" : {
+      "type" : "column"
+   }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index aaabb61943..3dad3d39ef 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,28 +1,40 @@
 {
-   "yAxis" : {
-      "title" : {
-         "text" : null
-      },
-      "min" : 0
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge Contributions - 2019"
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2019-08-28 10:31:17 GMT"
-   },
    "xAxis" : {
       "labels" : {
          "style" : {
-            "fontFamily" : "Verdana, sans-serif",
-            "fontSize" : "13px"
+            "fontSize" : "13px",
+            "fontFamily" : "Verdana, sans-serif"
          }
       },
       "type" : "category"
    },
+   "chart" : {
+      "type" : "column"
+   },
+   "subtitle" : {
+      "text" : "Last updated at 2019-08-29 14:29:39 GMT"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge Contributions - 2019"
+   },
    "series" : [
       {
          "name" : "Contributions",
+         "dataLabels" : {
+            "format" : "{point.y:.0f}",
+            "rotation" : -90,
+            "style" : {
+               "fontSize" : "13px",
+               "fontFamily" : "Verdana, sans-serif"
+            },
+            "align" : "right",
+            "y" : 10,
+            "color" : "#FFFFFF",
+            "enabled" : "true"
+         },
          "data" : [
             [
                "Blog",
@@ -30,32 +42,20 @@
             ],
             [
                "Perl 5",
-               932
+               940
             ],
             [
                "Perl 6",
-               562
+               567
             ]
-         ],
-         "dataLabels" : {
-            "enabled" : "true",
-            "y" : 10,
-            "align" : "right",
-            "rotation" : -90,
-            "style" : {
-               "fontFamily" : "Verdana, sans-serif",
-               "fontSize" : "13px"
-            },
-            "color" : "#FFFFFF",
-            "format" : "{point.y:.0f}"
-         }
+         ]
       }
    ],
-   "legend" : {
-      "enabled" : "false"
-   },
-   "chart" : {
-      "type" : "column"
+   "yAxis" : {
+      "title" : {
+         "text" : null
+      },
+      "min" : 0
    },
    "tooltip" : {
       "pointFormat" : "<b>{point.y:.0f}</b>"
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 8c8cd2d725..0056c79ac1 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,138 +1,37 @@
 {
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         },
+         "borderWidth" : 0
+      }
+   },
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-08-29 14:29:39 GMT"
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge Language"
+   },
    "legend" : {
       "enabled" : "false"
    },
-   "series" : [
-      {
-         "name" : "Perl Weekly Challenge Languages",
-         "colorByPoint" : "true",
-         "data" : [
-            {
-               "name" : "#001",
-               "y" : 127,
-               "drilldown" : "001"
-            },
-            {
-               "y" : 104,
-               "name" : "#002",
-               "drilldown" : "002"
-            },
-            {
-               "drilldown" : "003",
-               "y" : 66,
-               "name" : "#003"
-            },
-            {
-               "drilldown" : "004",
-               "y" : 86,
-               "name" : "#004"
-            },
-            {
-               "name" : "#005",
-               "y" : 66,
-               "drilldown" : "005"
-            },
-            {
-               "drilldown" : "006",
-               "y" : 47,
-               "name" : "#006"
-            },
-            {
-               "drilldown" : "007",
-               "name" : "#007",
-               "y" : 55
-            },
-            {
-               "drilldown" : "008",
-               "y" : 68,
-               "name" : "#008"
-            },
-            {
-               "drilldown" : "009",
-               "y" : 66,
-               "name" : "#009"
-            },
-            {
-               "y" : 59,
-               "name" : "#010",
-               "drilldown" : "010"
-            },
-            {
-               "y" : 78,
-               "name" : "#011",
-               "drilldown" : "011"
-            },
-            {
-               "drilldown" : "012",
-               "y" : 82,
-               "name" : "#012"
-            },
-            {
-               "drilldown" : "013",
-               "y" : 75,
-               "name" : "#013"
-            },
-            {
-               "y" : 95,
-               "name" : "#014",
-               "drilldown" : "014"
-            },
-            {
-               "drilldown" : "015",
-               "y" : 91,
-               "name" : "#015"
-            },