Merge remote-tracking branch 'upstream/master'

13 files changed, 980 insertions, 774 deletions

diff --git a/challenge-022/andrezgz/perl5/ch-1.pl b/challenge-022/andrezgz/perl5/ch-1.pl
new file mode 100644
index 0000000000..156ab49d08
--- /dev/null
+++ b/challenge-022/andrezgz/perl5/ch-1.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-022/
+# Task #1
+# Write a script to print first 10 Sexy Prime Pairs. Sexy primes are prime numbers that differ from each other by 6.
+# For example, the numbers 5 and 11 are both sexy primes, because 11 - 5 = 6.
+# The term "sexy prime" is a pun stemming from the Latin word for six: sex.
+# For more information, please checkout wiki page.
+# https://en.wikipedia.org/wiki/Sexy_prime
+
+use strict;
+use warnings;
+
+use constant LIMIT => 10;
+
+my $n = 0;
+my $pairs = 0;
+my %primes;
+
+do {{ # double block to allow next within do until
+    next if (!is_prime(++$n));      # only primes allowed
+    $primes{$n}=1;
+
+    if(exists $primes{$n-6}) {
+        print sprintf("(%d,%d)\n",$n-6,$n);
+        $pairs++;
+    }
+}} until ($pairs == LIMIT);
+
+sub is_prime {
+    my $n = shift;
+    return 0 if $n <= 1;
+    #every composite number has a prime factor less than or equal to its square root.
+    return 1 == grep {$n % $_ == 0} (1 .. sqrt $n);
+}
diff --git a/challenge-022/roger-bell-west/perl5/ch-1.pl b/challenge-022/roger-bell-west/perl5/ch-1.pl
new file mode 100755
index 0000000000..9f1f55566e
--- /dev/null
+++ b/challenge-022/roger-bell-west/perl5/ch-1.pl
@@ -0,0 +1,28 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+# Arbitrary cap
+my $cap=110;
+
+my $limit=6;
+
+# Sieve of Eratosthenes to give us a prime list
+my %n=map {$_ => 1} (2..$cap);
+foreach my $f (2..int(sqrt($cap))) {
+  map {($f<$_ && $_%$f == 0)?delete $n{$_}:0} keys %n;
+}
+my @p=sort {$a <=> $b} (keys %n);
+my %p=map {$_ => 1} @p;
+
+foreach my $p (@p) {
+  my $q=$p+6;
+  if (exists $p{$q}) {
+    print "$p, $q\n";
+    $limit--;
+    unless ($limit) {
+      last;
+    }
+  }
+}
diff --git a/challenge-022/roger-bell-west/perl5/ch-2.pl b/challenge-022/roger-bell-west/perl5/ch-2.pl
new file mode 100755
index 0000000000..a5279d702b
--- /dev/null
+++ b/challenge-022/roger-bell-west/perl5/ch-2.pl
@@ -0,0 +1,89 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+my $lzw=Local::LZW->new('A'..'Z');
+
+my $bitstr=$lzw->encode('TOBEORNOTTOBEORTOBEORNOT');
+print $lzw->decode($bitstr),"\n";
+
+package Local::LZW;
+use List::Util qw(max);
+
+sub new {
+  my $class=shift;
+  my $self={};
+  bless $self,$class;
+  my $alphabet=join('',@_) or die "Specify alphabet\n";
+  my @dec=split '',$alphabet;
+  unshift @dec,'#STOP#'; # yes, I know this is bad
+  $self->{encode}={map {$dec[$_] => $_} (0..$#dec)};
+  return $self;
+}
+
+sub encode {
+  my $self=shift;
+  my @inchars=split '',shift;
+  push @inchars,'#STOP#';
+  my @out;
+  my %dict=%{$self->{encode}};
+  my $l=int(log(scalar keys %dict)/log(2))+1 ;
+  while (@inchars) {
+    if ($inchars[0] eq '#STOP#') {
+      last;
+    }
+    my $n=0;
+    while ($#inchars > $n && exists $dict{join('',@inchars[0..$n])}) {
+      $n++;
+    }
+    if ($n>0) {
+      push @out,[$dict{join('',@inchars[0..$n-1])},$l];
+    }
+    my $di=scalar keys %dict;
+    $l=max(int(log($di)/log(2))+1,$l);
+    $dict{join('',@inchars[0..$n])}=$di;
+    splice @inchars,0,$n;
+  }
+  push @out,[$self->{encode}{'#STOP#'},$l];
+  my $bins=join('',map {sprintf('%0'.$_->[1].'b',$_->[0])} @out);
+  my $ll=length($bins)%8;
+  if ($ll>0) {
+    $bins .= '0' x (8-$ll);
+  }
+  return pack('B*',$bins);
+}
+
+sub decode {
+  my $self=shift;
+  my $bitstr=shift;
+  my %dict=%{$self->{encode}};
+  my %decode=map {$dict{$_} => $_} keys %dict;
+  my $l=int(log(scalar keys %dict)/log(2))+1 ;
+  my @bins=split '',join('',map {sprintf('%08B',ord($_))} split '',$bitstr);
+  my @out;
+  my $conj='';
+  while (@bins) {
+    my @d=splice @bins,0,$l;
+    while (scalar @d < 8) {
+      unshift @d,'0';
+    }
+    my $b=pack('B*',join('',@d));
+    my $code=ord($b);
+    unless (exists $decode{$code}) {
+      die "unable to decode $code\n";
+    }
+    if ($decode{$code} eq '#STOP#') {
+      last;
+    }
+    push @out,$decode{$code};
+    if ($conj) {
+      my $nd=$conj.substr($out[-1],0,1);
+      my $di=scalar keys %decode;
+      $l=max(int(log($di+1)/log(2))+1,$l);
+      $decode{$di}=$nd;
+    }
+    $conj=$out[-1];
+  }
+  return join('',@out);
+}
diff --git a/challenge-022/roger-bell-west/perl6/ch-1.p6 b/challenge-022/roger-bell-west/perl6/ch-1.p6
new file mode 100755
index 0000000000..31956f6bd3
--- /dev/null
+++ b/challenge-022/roger-bell-west/perl6/ch-1.p6
@@ -0,0 +1,16 @@
+#! /usr/bin/perl6
+
+my $limit=6;
+
+for (2..Inf) -> $p {
+  if $p.is-prime {
+    my $q=$p+6;
+    if $q.is-prime {
+      say "$p, $q";
+      $limit--;
+      unless ($limit) {
+        last;
+      }
+    }
+  }
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 469638b895..947a69b64d 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,26 +1,90 @@
 {
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
+   "series" : [
+      {
+         "colorByPoint" : 1,
+         "name" : "Perl Weekly Challenge - 022",
+         "data" : [
+            {
+               "name" : "Andrezgz",
+               "y" : 1,
+               "drilldown" : "Andrezgz"
+            },
+            {
+               "name" : "Duane Powell",
+               "y" : 1,
+               "drilldown" : "Duane Powell"
+            },
+            {
+               "name" : "Laurent Rosenfeld",
+               "y" : 5,
+               "drilldown" : "Laurent Rosenfeld"
+            },
+            {
+               "drilldown" : "Roger Bell West",
+               "y" : 3,
+               "name" : "Roger Bell West"
+            },
+            {
+               "name" : "Simon Proctor",
+               "y" : 2,
+               "drilldown" : "Simon Proctor"
+            },
+            {
+               "y" : 1,
+               "drilldown" : "Steven Wilson",
+               "name" : "Steven Wilson"
+            },
+            {
+               "y" : 5,
+               "drilldown" : "Yet Ebreo",
+               "name" : "Yet Ebreo"
+            }
+         ]
       }
+   ],
+   "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/>"
    },
    "xAxis" : {
       "type" : "category"
    },
+   "legend" : {
+      "enabled" : 0
+   },
+   "subtitle" : {
+      "text" : "[Champions: 7] Last updated at 2019-08-22 17:44:37 GMT"
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 022"
+   },
    "drilldown" : {
       "series" : [
          {
-            "name" : "Duane Powell",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
             ],
-            "id" : "Duane Powell"
+            "name" : "Andrezgz",
+            "id" : "Andrezgz"
+         },
+         {
+            "name" : "Duane Powell",
+            "id" : "Duane Powell",
+            "data" : [
+               [
+                  "Perl 5",
+                  1
+               ]
+            ]
          },
          {
-            "name" : "Laurent Rosenfeld",
             "data" : [
                [
                   "Perl 5",
@@ -35,29 +99,46 @@
                   1
                ]
             ],
-            "id" : "Laurent Rosenfeld"
+            "id" : "Laurent Rosenfeld",
+            "name" : "Laurent Rosenfeld"
+         },
+         {
+            "data" : [
+               [
+                  "Perl 5",
+                  2
+               ],
+               [
+                  "Perl 6",
+                  1
+               ]
+            ],
+            "name" : "Roger Bell West",
+            "id" : "Roger Bell West"
          },
          {
             "id" : "Simon Proctor",
+            "name" : "Simon Proctor",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
-            ],
-            "name" : "Simon Proctor"
+            ]
          },
          {
+            "id" : "Steven Wilson",
             "name" : "Steven Wilson",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
-            ],
-            "id" : "Steven Wilson"
+            ]
          },
          {
+            "name" : "Yet Ebreo",
+            "id" : "Yet Ebreo",
             "data" : [
                [
                   "Perl 5",
@@ -66,70 +147,27 @@
                [
                   "Perl 6",
                   2
+               ],
+               [
+                  "Blog",
+                  1
                ]
-            ],
-            "id" : "Yet Ebreo",
-            "name" : "Yet Ebreo"
+            ]
          }
       ]
    },
-   "series" : [
-      {
-         "data" : [
-            {
-               "drilldown" : "Duane Powell",
-               "y" : 1,
-               "name" : "Duane Powell"
-            },
-            {
-               "name" : "Laurent Rosenfeld",
-               "drilldown" : "Laurent Rosenfeld",
-               "y" : 5
-            },
-            {
-               "name" : "Simon Proctor",
-               "y" : 2,
-               "drilldown" : "Simon Proctor"
-            },
-            {
-               "name" : "Steven Wilson",
-               "drilldown" : "Steven Wilson",
-               "y" : 1
-            },
-            {
-               "name" : "Yet Ebreo",
-               "drilldown" : "Yet Ebreo",
-               "y" : 4
-            }
-         ],
-         "colorByPoint" : 1,
-         "name" : "Perl Weekly Challenge - 022"
-      }
-   ],
-   "title" : {
-      "text" : "Perl Weekly Challenge - 022"
-   },
    "plotOptions" : {
       "series" : {
+         "borderWidth" : 0,
          "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         },
-         "borderWidth" : 0
+            "enabled" : 1,
+            "format" : "{point.y}"
+         }
       }
    },
-   "legend" : {
-      "enabled" : 0
-   },
-   "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
-   },
-   "subtitle" : {
-      "text" : "[Champions: 5] Last updated at 2019-08-22 12:02:04 GMT"
-   },
-   "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 77a2f7d9c0..3030c51fa7 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,63 +1,63 @@
 {
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
+   "xAxis" : {
+      "type" : "category",
+      "labels" : {
+         "style" : {
+            "fontSize" : "13px",
+            "fontFamily" : "Verdana, sans-serif"
+         }
+      }
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
+   "chart" : {
+      "type" : "column"
+   },
    "series" : [
       {
-         "name" : "Contributions",
          "dataLabels" : {
+            "align" : "right",
+            "y" : 10,
+            "enabled" : "true",
             "format" : "{point.y:.0f}",
             "style" : {
-               "fontSize" : "13px",
-               "fontFamily" : "Verdana, sans-serif"
+               "fontFamily" : "Verdana, sans-serif",
+               "fontSize" : "13px"
             },
             "color" : "#FFFFFF",
-            "align" : "right",
-            "y" : 10,
-            "rotation" : -90,
-            "enabled" : "true"
+            "rotation" : -90
          },
          "data" : [
             [
                "Blog",
-               217
+               218
             ],
             [
                "Perl 5",
-               889
+               892
             ],
             [
                "Perl 6",
-               532
+               533
             ]
-         ]
+         ],
+         "name" : "Contributions"
       }
    ],
-   "legend" : {
-      "enabled" : "false"
+   "title" : {
+      "text" : "Perl Weekly Challenge Contributions - 2019"
    },
    "yAxis" : {
-      "min" : 0,
       "title" : {
          "text" : null
-      }
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "xAxis" : {
-      "labels" : {
-         "style" : {
-            "fontFamily" : "Verdana, sans-serif",
-            "fontSize" : "13px"
-         }
       },
-      "type" : "category"
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge Contributions - 2019"
-   },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
+      "min" : 0
    },
    "subtitle" : {
-      "text" : "Last updated at 2019-08-22 12:02:23 GMT"
+      "text" : "Last updated at 2019-08-22 17:44:45 GMT"
    }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 6575dc4d74..60c65f05da 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,55 +1,53 @@
 {
-   "legend" : {
-      "enabled" : "false"
-   },
    "series" : [
       {
          "name" : "Perl Weekly Challenge Languages",
+         "colorByPoint" : "true",
          "data" : [
             {
-               "y" : 123,
+               "drilldown" : "001",
                "name" : "#001",
-               "drilldown" : "001"
+               "y" : 123
             },
             {
                "y" : 104,
-               "name" : "#002",
-               "drilldown" : "002"
+               "drilldown" : "002",
+               "name" : "#002"
             },
             {
+               "y" : 66,
                "drilldown" : "003",
-               "name" : "#003",
-               "y" : 66
+               "name" : "#003"
             },
             {
+               "name" : "#004",
                "drilldown" : "004",
-               "y" : 84,
-               "name" : "#004"
+               "y" : 84
             },
             {
                "drilldown" : "005",
-               "y" : 66,
-               "name" : "#005"
+               "name" : "#005",
+               "y" : 66
             },
             {
-               "y" : 47,
+               "drilldown" : "006",
                "name" : "#006",
-               "drilldown" : "006"
+               "y" : 47
             },
             {
-               "y" : 55,
                "name" : "#007",
-               "drilldown" : "007"
+               "drilldown" : "007",
+               "y" : 55
             },
             {
-               "drilldown" : "008",
                "y" : 68,
-               "name" : "#008"
+               "name" : "#008",
+               "drilldown" : "008"
             },
             {
                "y" : 66,
-               "name" : "#009",
-               "drilldown" : "009"
+               "drilldown" : "009",
+               "name" : "#009"
             },
             {
                "y" : 59,
@@ -57,39 +55,39 @@
                "drilldown" : "010"
             },
             {
-               "name" : "#011",
                "y" : 78,
-               "drilldown" : "011"
+               "drilldown" : "011",
+               "name" : "#011"
             },
             {
-               "drilldown" : "012",
+               "y" : 82,
                "name" : "#012",
-               "y" : 82
+               "drilldown" : "012"
             },
             {
                "y" : 75,
-               "name" : "#013",
-               "drilldown" : "013"
+               "drilldown" : "013",
+               "name" : "#013"
             },
             {
+               "name" : "#014",
                "drilldown" : "014",
-               "y" : 95,
-               "name" : "#014"
+               "y" : 95
             },
             {
-               "drilldown" : "015",
                "y" : 91,
+               "drilldown" : "015",
                "name" : "#015"
             },
             {
                "y" : 65,
-               "name" : "#016",
-               "drilldown" : "016"
+               "drilldown" : "016",
+               "name" : "#016"
             },
             {
+               "name" : "#017",
                "drilldown" : "017",
-               "y" : 78,
-               "name" : "#017"
+               "y" : 78
             },
             {
                "drilldown" : "018",
@@ -97,36 +95,54 @@
                "y" : 74
             },
             {
+               "y" : 93,
                "drilldown" : "019",
-               "name" : "#019",
-               "y" : 93
+               "name" : "#019"
             },
             {
-               "y" : 92,
                "name" : "#020",
-               "drilldown" : "020"
+               "drilldown" : "020",
+               "y" : 92
             },
             {
                "name" : "#021",
-               "y" : 64,
-               "drilldown" : "021"
+               "drilldown" : "021",
+               "y" : 64
             },
             {
                "name" : "#022",
-               "y" : 13,
-               "drilldown" : "022"
+               "drilldown" : "022",
+               "y" : 18
             }
-         ],
-         "colorByPoint" : "true"
+         ]
       }
    ],
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         },
+         "borderWidth" : 0
+      }
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "tooltip" : {
+      "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
+      "followPointer" : "true",
+      "headerFormat" : "<span style=\"font-size:11px\"></span>"
+   },
    "chart" : {
       "type" : "column"
    },
+   "legend" : {
+      "enabled" : "false"
+   },
    "drilldown" : {
       "series" : [
          {
-            "name" : "001",
             "data" : [
                [
                   "Perl 5",
@@ -141,10 +157,11 @@
                   10
                ]
             ],
+            "name" : "001",
             "id" : "001"
          },
          {
-            "id" : "002",
+            "name" : "002",
             "data" : [
                [
                   "Perl 5",
@@ -159,9 +176,10 @@
                   9
                ]
             ],
-            "name" : "002"
+            "id" : "002"
          },
          {
+            "id" : "003",
             "data" : [
                [
                   "Perl 5",
@@ -176,12 +194,10 @@
                   8
                ]
             ],
-            "id" : "003",
             "name" : "003"
          },
          {
             "name" : "004",
-            "id" : "004",
             "data" : [
                [
                   "Perl 5",
@@ -195,10 +211,10 @@
                   "Blog",
                   9
                ]
-            ]
+            ],
+            "id" : "004"
          },
          {
-            "name" : "005",
             "data" : [
                [
                   "Perl 5",
@@ -213,10 +229,12 @@
                   11
                ]
             ],
+            "name" : "005",
             "id" : "005"
          },
          {
             "id" : "006",
+            "name" : "006",
             "data" : [
                [
                   "Perl 5",
@@ -230,11 +248,9 @@
                   "Blog",
                   6
                ]
-            ],
-            "name" : "006"
+            ]
          },
          {
-            "name" : "007",
             "data" : [
                [
                   "Perl 5",
@@ -249,10 +265,10 @@
                   9
                ]
             ],
+            "name" : "007",
             "id" : "007"
          },
          {
-            "name" : "008",
             "data" : [
                [
                   "Perl 5",
@@ -267,9 +283,11 @@
                   10
                ]
             ],
+            "name" : "008",
             "id" : "008"
          },
          {
+            "id" : "009",
             "name" : "009",
             "data" : [
                [
@@ -284,11 +302,9 @@
                   "Blog",
                   12
                ]
-            ],
-            "id" : "009"
+            ]
          },
          {
-            "id" : "010",
             "data" : [
                [
                   "Perl 5",
@@ -303,9 +319,11 @@
                   10
                ]
             ],
-            "name" : "010"
+            "name" : "010",
+            "id" : "010"
          },
          {
+            "name" : "011",
             "data" : [
                [
                   "Perl 5",
@@ -320,11 +338,9 @@
                   9
                ]
             ],
-            "id" : "011",
-            "name" : "011"
+            "id" : "011"
          },
          {
-            "id" : "012",
             "data" : [
                [
                   "Perl 5",
@@ -339,10 +355,10 @@
                   10
                ]
             ],
-            "name" : "012"
+            "name" : "012",
+            "id" : "012"
          },
          {
-            "name" : "013",
             "id" : "013",
             "data" : [
                [
@@ -357,10 +373,11 @@
                   "Blog",
                   12
                ]
-            ]
+            ],
+            "name" : "013"
          },
          {
-            "name" : "014",
+            "id" : "014",
             "data" : [
                [
                   "Perl 5",
@@ -375,7 +392,7 @@
                   14
                ]
             ],
-            "id" : "014"
+            "name" : "014"
          },
          {
             "id" : "015",
@@ -396,6 +413,7 @@
             "name" : "015"
          },
          {
+            "id" : "016",
             "name" : "016",
             "data" : [
                [
@@ -410,11 +428,10 @@
                   "Blog",
                   11
                ]
-            ],
-            "id" : "016"
+            ]
          },
          {
-            "name" : "017",
+            "id" : "017",
             "data" : [
                [
                   "Perl 5",
@@ -429,7 +446,7 @@
                   11
                ]
             ],
-            "id" : "017"
+            "name" : "017"
          },
          {
             "data" : [
@@ -446,10 +463,11 @@
                   12
                ]
             ],
-            "id" : "018",
-            "name" : "018"
+            "name" : "018",
+            "id" : "018"
          },
          {
+            "id" : "019",
             "data" : [
                [
                   "Perl 5",
@@ -464,12 +482,9 @@
                   11
                ]
             ],
-            "id" : "019",
             "name" : "019"
          },
          {
-            "name" : "020",
-            "id" : "020",
             "data" : [
                [
                   "Perl 5",
@@ -483,7 +498,9 @@
                   "Blog",
                   12
                ]
-            ]
+            ],
+            "name" : "020",
+            "id" : "020"
          },
          {
             "id" : "021",
@@ -508,15 +525,15 @@
             "data" : [
                [
                   "Perl 5",
-                  6
+                  9
                ],
                [
                   "Perl 6",
-                  6
+                  7
                ],
                [
                   "Blog",
-                  1
+                  2
                ]
             ],
             "name" : "022"
@@ -528,27 +545,10 @@
          "text" : "Total Solutions"
       }
    },
-   "tooltip" : {
-      "headerFormat" : "<span style=\"font-size:11px\"></span>",
-      "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
-      "followPointer" : "true"
-   },
    "subtitle" : {
-      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-08-22 12:02:23 GMT"
-   },
-   "xAxis" : {
-      "type" : "category"
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-08-22 17:44:45 GMT"
    },
    "title" : {
       "text" : "Perl Weekly Challenge Language"
-   },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         },
-         "borderWidth" : 0
-      }
    }
 }
diff --git a/stats/pwc-leaders.json b/stats/pwc-leaders.json
index c36d08d047..c3f41ccc10 100644
--- a/stats/pwc-leaders.json
+++ b/stats/pwc-leaders.json
@@ -1,6 +1,278 @@
 {
-   "legend" : {
-      "enabled" : "false"
+   "title" : {
+      "text" : "Perl Weekly Challenge Leaders (TOP 50)"
+   },
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the score breakdown. Last updated at 2019-08-22 17:44:43 GMT"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "series" : [
+      {
+         "colorByPoint" : "true",
+         "name" : "Perl Weekly Challenge Leaders",
+         "data" : [
+            {
+               "drilldown" : "Laurent Rosenfeld",
+               "name" : "#1: Laurent Rosenfeld",
+               "y" : 232
+            },
+            {
+               "name" : "#2: Joelle Maslak",
+               "drilldown" : "Joelle Maslak",
+               "y" : 228
+            },
+            {
+               "drilldown" : "Jaldhar H. Vyas",
+               "name" : "#3: Jaldhar H. Vyas",
+               "y" : 182
+            },
+            {
+               "y" : 156,
+               "drilldown" : "Ruben Westerberg",
+               "name" : "#4: Ruben Westerberg"
+            },
+            {
+               "y" : 136,
+               "name" : "#5: Adam Russell",
+               "drilldown" : "Adam Russell"
+            },
+            {
+               "y" : 134,
+               "name" : "#6: Athanasius",
+               "drilldown" : "Athanasius"
+            },
+            {
+               "name" : "#7: Arne Sommer",
+               "drilldown" : "Arne Sommer",
+               "y" : 118
+            },
+            {
+               "y" : 118,
+               "name" : "#8: Kian-Meng Ang",
+               "drilldown" : "Kian-Meng Ang"
+            },
+            {
+               "y" : 102,
+               "name" : "#9: E. Choroba",
+               "drilldown" : "E. Choroba"
+            },
+            {
+               "drilldown" : "Simon Proctor",
+               "name" : "#10: Simon Proctor",
+               "y" : 94
+            },
+            {
+               "drilldown" : "Francis Whittle",
+               "name" : "#11: Francis Whittle",
+               "y" : 92
+            },
+            {
+               "y" : 90,
+               "drilldown" : "Dave Jacoby",
+