- Added solutions by Kevin Colyer.

11 files changed, 768 insertions, 595 deletions

diff --git a/challenge-022/kevin-colyer/perl5/ch-1.pl b/challenge-022/kevin-colyer/perl5/ch-1.pl
new file mode 100644
index 0000000000..d99bbb9198
--- /dev/null
+++ b/challenge-022/kevin-colyer/perl5/ch-1.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl6
+use v6;
+
+use Test;
+
+# 22.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.
+
+my @p =  (2,3,*+2 ... ∞).grep: *.is-prime;
+
+
+#| prints the num first sexy prime pairs
+sub MAIN(Int :$pairs = 10)
+{
+    my Int $i=0;
+    for ^$pairs -> $n {
+        while  not (@p[$i]+6).is-prime {
+            $i++; # skip one
+        }
+        say "{$n+1}th sexy prime pairs are: {@p[$i]} and {@p[$i]+6}";
+        $i++; # chose next candidate...
+    }
+}
diff --git a/challenge-022/kevin-colyer/perl5/ch-2.pl b/challenge-022/kevin-colyer/perl5/ch-2.pl
new file mode 100644
index 0000000000..0e9f9a2cfe
--- /dev/null
+++ b/challenge-022/kevin-colyer/perl5/ch-2.pl
@@ -0,0 +1,132 @@
+#!/usr/bin/perl6
+use v6;
+
+use Test;
+
+# 22.2 Write a script to implement Lempel–Ziv–Welch (LZW) compression algorithm. The script should have method to encode/decode algorithm. The https://en.wikipedia.org/wiki/Lempel%E2%80%93Ziv%E2%80%93Welch page explains the compression algorithm very nicely.
+
+# ASSUMPTIONS
+# Dictionary is hard set to ASCII upper case
+# 5 bits raising to 12 bits. No overflow checking if dict overflows!
+# TODO - better dictionary, bit packing, dict overflowing...
+
+constant  @sharedDict= '#', 'A' ... 'Z';
+
+#| tests
+sub MAIN(  Bool :$debug=False)
+{
+    my $test="TOBEORNOTTOBEORTOBEORNOT#";
+
+    my $output= LZWencode($test,$debug);
+    my @decode= [20 => 5, 15 => 5, 2 => 5, 5 => 5, 15 => 5, 18 => 6, 14 => 6, 15 => 6, 20 => 6, 27 => 6, 29 => 6, 31 => 6, 36 => 6, 30 => 6, 32 => 6, 34 => 6, 0 => 6];
+    is $output,@decode,"testing encode";
+
+    $output= LZWdecode(@decode,$debug);
+    is $output,$test,"testing decode";
+
+    # Roundtrip tests
+    is LZWdecode(LZWencode($test,False),False),$test,"roundtrip coder and decoder";
+    my $bitsInput=$test.chars*8;
+    my $bitsOutput=LZWencode($test,False).reduce: {$^a.kv[1] + $^b.kv[1] };
+    say "[$test]\n   uncompressed $bitsInput / compressed $bitsOutput = " ~ floor((1-$bitsOutput/$bitsInput)*100) ~ "% of input";
+
+    $test="THEQUICKBROWNFOZJUMPEDOVERTHELAZYDOGITDIDITSEVERALTIMESWHATFUN#";
+    is LZWdecode(LZWencode($test,False),False),$test,"roundtrip coder and decoder longer";
+    $bitsInput=$test.chars*8;
+    $bitsOutput=LZWencode($test,False).reduce: {$^a.kv[1] + $^b.kv[1] };
+    say "[$test]\n   uncompressed $bitsInput / compressed $bitsOutput = " ~ floor((1-$bitsOutput/$bitsInput)*100) ~ "% of input";
+
+    say "Note: Dictionary initialised length {@sharedDict.elems}, {@sharedDict.elems*8} bits";
+}
+
+sub LZWencode($input is copy, $debug) {
+    # using encoder algorithm from wikipedia page
+    #1 Initialize the dictionary to contain all strings of length one.
+    my @dict= @sharedDict;
+    say @dict if $debug;
+    my $bits=5; # ranges to 12
+    my $extendDict=2**$bits;
+    my @encbuf;
+    my $W;
+
+    #2 Find the longest string W in the dictionary that matches the current input.
+    while $input.chars {
+        $W="";
+
+        # $i is index of current W
+        my $i=-1;
+        for (0..^@dict.elems).reverse -> $j {
+            if $input.starts-with(@dict[$j]) {
+                $W=@dict[$j];
+                say "\nFound [$W] at index $j"  if $debug;
+                $i=$j;
+                last;
+            }
+        }
+        die "[{$input.substr(0,1)}] is not in initial dictionary: Invalid input" if $i==-1;
+        #3 Emit the dictionary index for W to output and remove W from the input.
+
+        say "#3 [$W] emitting $i using $bits bits" if $debug;
+        @encbuf.push( $i => +$bits );
+
+        # If found end code, finish...
+        last if $i==0;
+
+        $input=$input.substr($W.chars,*);
+
+        #4 Add W followed by the next symbol in the input to the dictionary.
+        say "adding to dict [$W"~$input.substr(0,1) ~"] at index {@dict.elems}"  if $debug ;
+        @dict.push($W ~ $input.substr(0,1)) ;
+
+        if @dict.elems>=$extendDict {
+            $extendDict*=2;
+            $bits++;
+            say "Increasing bits used to $bits"  if $debug;
+        }
+
+    #5 Go to Step 2.
+    }
+    return @encbuf;
+}
+
+sub LZWdecode(@input, $debug) {
+    # similar to encoder but just decode using dictionary as look up. Take care to continue to build dictionary as we go.
+    # Keep count of input bit stream width for unpacking
+
+    # Initialize the dictionary to contain all strings of length one.
+    my @dict= @sharedDict;
+    say @dict if $debug;
+
+    my $bits=5; # ranges to 12
+    my $extendDict=2**$bits;
+    my $decode;
+    my $W;
+
+    while @input.elems {
+
+        my $i= @input.shift.kv[0];
+        # $i is index into dict.
+        $W=@dict[$i];
+        say "\nFound [$W] at index $i"  if $debug;
+
+        # add W to decoded buffer
+
+        say "#3 [$W] decodes $i " if $debug;
+        $decode~=$W;
+
+        # If found end code, finish...
+        last if $i==0;
+
+        #4 Add W followed by the FIRST LETTER OF the next symbol in the input to the dictionary.
+        my $add = $W ~ @dict[ @input[0].kv[0] ].substr( 0, 1 );
+        say "adding to dict $add" if $debug ;
+        @dict.push($add) ;
+
+        if @dict.elems>=$extendDict {
+            $extendDict*=2;
+            $bits++;
+            say "Increasing bits used to $bits"  if $debug;
+        }
+    }
+    return $decode;
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 958ab72c10..ac27edf257 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,21 +1,85 @@
 {
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
+   "legend" : {
+      "enabled" : 0
    },
    "plotOptions" : {
       "series" : {
-         "borderWidth" : 0,
          "dataLabels" : {
             "enabled" : 1,
             "format" : "{point.y}"
-         }
+         },
+         "borderWidth" : 0
       }
    },
+   "tooltip" : {
+      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
+      "followPointer" : 1,
+      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>"
+   },
    "xAxis" : {
       "type" : "category"
    },
+   "chart" : {
+      "type" : "column"
+   },
+   "series" : [
+      {
+         "colorByPoint" : 1,
+         "name" : "Perl Weekly Challenge - 022",
+         "data" : [
+            {
+               "y" : 1,
+               "name" : "Andrezgz",
+               "drilldown" : "Andrezgz"
+            },
+            {
+               "y" : 2,
+               "name" : "Duane Powell",
+               "drilldown" : "Duane Powell"
+            },
+            {
+               "drilldown" : "E. Choroba",
+               "name" : "E. Choroba",
+               "y" : 2
+            },
+            {
+               "name" : "Joelle Maslak",
+               "drilldown" : "Joelle Maslak",
+               "y" : 2
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Kevin Colyer",
+               "name" : "Kevin Colyer"
+            },
+            {
+               "drilldown" : "Laurent Rosenfeld",
+               "name" : "Laurent Rosenfeld",
+               "y" : 5
+            },
+            {
+               "drilldown" : "Roger Bell West",
+               "name" : "Roger Bell West",
+               "y" : 3
+            },
+            {
+               "drilldown" : "Simon Proctor",
+               "name" : "Simon Proctor",
+               "y" : 2
+            },
+            {
+               "drilldown" : "Steven Wilson",
+               "name" : "Steven Wilson",
+               "y" : 1
+            },
+            {
+               "y" : 5,
+               "name" : "Yet Ebreo",
+               "drilldown" : "Yet Ebreo"
+            }
+         ]
+      }
+   ],
    "drilldown" : {
       "series" : [
          {
@@ -29,18 +93,18 @@
             ]
          },
          {
-            "id" : "Duane Powell",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "name" : "Duane Powell"
+            "name" : "Duane Powell",
+            "id" : "Duane Powell"
          },
          {
-            "id" : "E. Choroba",
             "name" : "E. Choroba",
+            "id" : "E. Choroba",
             "data" : [
                [
                   "Perl 5",
@@ -50,6 +114,7 @@
          },
          {
             "id" : "Joelle Maslak",
+            "name" : "Joelle Maslak",
             "data" : [
                [
                   "Perl 5",
@@ -59,12 +124,21 @@
                   "Perl 6",
                   1
                ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Perl 5",
+                  2
+               ]
             ],
-            "name" : "Joelle Maslak"
+            "id" : "Kevin Colyer",
+            "name" : "Kevin Colyer"
          },
          {
-            "id" : "Laurent Rosenfeld",
             "name" : "Laurent Rosenfeld",
+            "id" : "Laurent Rosenfeld",
             "data" : [
                [
                   "Perl 5",
@@ -81,6 +155,7 @@
             ]
          },
          {
+            "id" : "Roger Bell West",
             "name" : "Roger Bell West",
             "data" : [
                [
@@ -91,30 +166,30 @@
                   "Perl 6",
                   1
                ]
-            ],
-            "id" : "Roger Bell West"
+            ]
          },
          {
-            "id" : "Simon Proctor",
-            "name" : "Simon Proctor",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
-            ]
+            ],
+            "id" : "Simon Proctor",
+            "name" : "Simon Proctor"
          },
          {
-            "id" : "Steven Wilson",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
             ],
+            "id" : "Steven Wilson",
             "name" : "Steven Wilson"
          },
          {
+            "id" : "Yet Ebreo",
             "name" : "Yet Ebreo",
             "data" : [
                [
@@ -129,79 +204,19 @@
                   "Blog",
                   1
                ]
-            ],
-            "id" : "Yet Ebreo"
+            ]
          }
       ]
    },
-   "series" : [
-      {
-         "colorByPoint" : 1,
-         "data" : [
-            {
-               "drilldown" : "Andrezgz",
-               "name" : "Andrezgz",
-               "y" : 1
-            },
-            {
-               "drilldown" : "Duane Powell",
-               "name" : "Duane Powell",
-               "y" : 2
-            },
-            {
-               "y" : 2,
-               "name" : "E. Choroba",
-               "drilldown" : "E. Choroba"
-            },
-            {
-               "y" : 2,
-               "name" : "Joelle Maslak",
-               "drilldown" : "Joelle Maslak"
-            },
-            {
-               "y" : 5,
-               "drilldown" : "Laurent Rosenfeld",
-               "name" : "Laurent Rosenfeld"
-            },
-            {
-               "y" : 3,
-               "drilldown" : "Roger Bell West",
-               "name" : "Roger Bell West"
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Simon Proctor",
-               "name" : "Simon Proctor"
-            },
-            {
-               "y" : 1,
-               "drilldown" : "Steven Wilson",
-               "name" : "Steven Wilson"
-            },
-            {
-               "name" : "Yet Ebreo",
-               "drilldown" : "Yet Ebreo",
-               "y" : 5
-            }
-         ],
-         "name" : "Perl Weekly Challenge - 022"
-      }
-   ],
    "title" : {
       "text" : "Perl Weekly Challenge - 022"
    },
-   "chart" : {
-      "type" : "column"
-   },
-   "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
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
    },
    "subtitle" : {
-      "text" : "[Champions: 9] Last updated at 2019-08-24 02:04:28 GMT"
+      "text" : "[Champions: 10] Last updated at 2019-08-24 07:08:05 GMT"
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 145e45bfdb..fc22b073a5 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,19 +1,21 @@
 {
+   "chart" : {
+      "type" : "column"
+   },
    "series" : [
       {
          "dataLabels" : {
+            "rotation" : -90,
+            "format" : "{point.y:.0f}",
+            "y" : 10,
             "style" : {
                "fontSize" : "13px",
                "fontFamily" : "Verdana, sans-serif"
             },
-            "color" : "#FFFFFF",
-            "format" : "{point.y:.0f}",
-            "enabled" : "true",
-            "y" : 10,
             "align" : "right",
-            "rotation" : -90
+            "enabled" : "true",
+            "color" : "#FFFFFF"
          },
-         "name" : "Contributions",
          "data" : [
             [
                "Blog",
@@ -21,43 +23,41 @@
             ],
             [
                "Perl 5",
-               897
+               899
             ],
             [
                "Perl 6",
                535
             ]
-         ]
+         ],
+         "name" : "Contributions"
       }
    ],
-   "chart" : {
-      "type" : "column"
-   },
-   "legend" : {
-      "enabled" : "false"
+   "title" : {
+      "text" : "Perl Weekly Challenge Contributions - 2019"
    },
    "tooltip" : {
       "pointFormat" : "<b>{point.y:.0f}</b>"
    },
-   "subtitle" : {
-      "text" : "Last updated at 2019-08-24 02:04:37 GMT"
-   },
    "yAxis" : {
-      "min" : 0,
       "title" : {
          "text" : null
-      }
+      },
+      "min" : 0
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
+   "subtitle" : {
+      "text" : "Last updated at 2019-08-24 07:16:08 GMT"
    },
    "xAxis" : {
+      "type" : "category",
       "labels" : {
          "style" : {
-            "fontFamily" : "Verdana, sans-serif",
-            "fontSize" : "13px"
+            "fontSize" : "13px",
+            "fontFamily" : "Verdana, sans-serif"
          }
-      },
-      "type" : "category"
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge Contributions - 2019"
+      }
    }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 946f4610e6..29110a572f 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,33 +1,17 @@
 {
-   "xAxis" : {
-      "type" : "category"
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge Language"
-   },
-   "plotOptions" : {
-      "series" : {
-         "borderWidth" : 0,
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         }
-      }
-   },
    "series" : [
       {
-         "colorByPoint" : "true",
          "name" : "Perl Weekly Challenge Languages",
          "data" : [
             {
-               "drilldown" : "001",
                "y" : 123,
+               "drilldown" : "001",
                "name" : "#001"
             },
             {
-               "y" : 104,
+               "name" : "#002",
                "drilldown" : "002",
-               "name" : "#002"
+               "y" : 104
             },
             {
                "name" : "#003",
@@ -35,14 +19,14 @@
                "y" : 66
             },
             {
+               "drilldown" : "004",
                "name" : "#004",
-               "y" : 84,
-               "drilldown" : "004"
+               "y" : 84
             },
             {
-               "name" : "#005",
                "y" : 66,
-               "drilldown" : "005"
+               "drilldown" : "005",
+               "name" : "#005"
             },
             {
                "y" : 47,
@@ -50,9 +34,9 @@
                "name" : "#006"
             },
             {
+               "drilldown" : "007",
                "name" : "#007",
-               "y" : 55,
-               "drilldown" : "007"
+               "y" : 55
             },
             {
                "y" : 68,
@@ -60,96 +44,118 @@
                "name" : "#008"
             },
             {
-               "name" : "#009",
                "y" : 66,
-               "drilldown" : "009"
+               "drilldown" : "009",
+               "name" : "#009"
             },
             {
-               "drilldown" : "010",
                "y" : 59,
+               "drilldown" : "010",
                "name" : "#010"
             },
             {
                "drilldown" : "011",
-               "y" : 78,
-               "name" : "#011"
+               "name" : "#011",
+               "y" : 78
             },
             {
                "y" : 82,
-               "drilldown" : "012",
-               "name" : "#012"
+               "name" : "#012",
+               "drilldown" : "012"
             },
             {
-               "name" : "#013",
                "drilldown" : "013",
+               "name" : "#013",
                "y" : 75
             },
             {
-               "name" : "#014",
                "y" : 95,
-               "drilldown" : "014"
+               "drilldown" : "014",
+               "name" : "#014"
             },
             {
                "drilldown" : "015",
-               "y" : 91,
-               "name" : "#015"
+               "name" : "#015",
+               "y" : 91
             },
             {
-               "name" : "#016",
                "drilldown" : "016",
+               "name" : "#016",
                "y" : 65
             },
             {
-               "y" : 78,
+               "name" : "#017",
                "drilldown" : "017",
-               "name" : "#017"
+               "y" : 78
             },
             {
                "y" : 74,
-               "drilldown" : "018",
-               "name" : "#018"
+               "name" : "#018",
+               "drilldown" : "018"
             },
             {
+               "drilldown" : "019",
                "name" : "#019",
-               "y" : 93,
-               "drilldown" : "019"
+               "y" : 93
             },
             {
+               "drilldown" : "020",
                "name" : "#020",
-               "y" : 95,
-               "drilldown" : "020"
+               "y" : 95
             },
             {
                "drilldown" : "021",
-               "y" : 64,
-               "name" : "#021"
+               "name" : "#021",
+               "y" : 64
             },
             {
+               "y" : 25,
                "drilldown" : "022",
-               "y" : 23,
                "name" : "#022"
             }
-         ]
+         ],
+         "colorByPoint" : "true"
       }
    ],
-   "legend" : {
-      "enabled" : "false"
-   },
    "chart" : {
       "type" : "column"
    },
    "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"
+      "followPointer" : "true",
+      "headerFormat" : "<span style=\"font-size:11px\"></span>"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge Language"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "legend" : {
+      "enabled" : "false"
    },
    "subtitle" : {
-      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-08-24 02:04:37 GMT"
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-08-24 07:16:08 GMT"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         }
+      }
    },
    "drilldown" : {
       "series" : [
          {
             "id" : "001",
+            "name" : "001",
             "data" : [
                [
                   "Perl 5",
@@ -163,8 +169,7 @@
                   "Blog",
                   10
                ]
-            ],
-            "name" : "001"
+            ]
          },
          {
             "name" : "002",
@@ -185,7 +190,7 @@
             "id" : "002"
          },
          {
-            "name" : "003",
+            "id" : "003",
             "data" : [
                [
                   "Perl 5",
@@ -200,9 +205,11 @@
                   8
                ]
             ],
-            "id" : "003"
+            "name" : "003"
          },
          {
+            "id" : "004",
+            "name" : "004",
             "data" : [
                [
                   "Perl 5",
@@ -216,11 +223,10 @@
                   "Blog",
                   9
                ]
-            ],
-            "id" : "004",
-            "name" : "004"
+            ]
          },
          {
+            "id" : "005",
             "data" : [
                [
                   "Perl 5",
@@ -235,10 +241,10 @@
                   11
                ]
             ],
-            "id" : "005",
             "name" : "005"
          },
          {
+            "id" : "006",
             "name" : "006",
             "data" : [
                [
@@ -253,11 +259,10 @@
                   "Blog",
                   6
                ]
-            ],
-            "id" : "006"
+            ]
          },
          {
-            "id" : "007",
+            "name" : "007",
             "data" : [
                [
                   "Perl 5",
@@ -272,9 +277,10 @@
                   9
                ]
             ],
-            "name" : "007"
+            "id" : "007"
          },
          {
+            "id" : "008",
             "data" : [
                [
                   "Perl 5",
@@ -289,10 +295,10 @@
                   10
                ]
             ],
-            "id" : "008",
             "name" : "008"
          },
          {
+            "id" : "009",
             "data" : [
                [
                   "Perl 5",
@@ -307,7 +313,6 @@
                   12
                ]
             ],
-            "id" : "009",
             "name" : "009"
          },
          {
@@ -330,6 +335,7 @@
          },
          {
             "id" : "011",
+            "name" : "011",
             "data" : [
                [
                   "Perl 5",
@@ -343,12 +349,10 @@
                   "Blog",
                   9
                ]
-            ],
-            "name" : "011"
+            ]
          },
          {
             "name" : "012",
-            "id" : "012",
             "data" : [
                [
                   "Perl 5",
@@ -362,9 +366,11 @@
                   "Blog",
                   10
                ]
-            ]
+            ],
+            "id" : "012"
          },
          {
+            "name" : "013",
             "data" : [
                [
                   "Perl 5",
@@ -379,10 +385,10 @@
                   12
                ]
             ],
-            "id" : "013",
-            "name" : "013"
+            "id" : "013"
          },
          {
+            "id" : "014",
             "name" : "014",
             "data" : [
                [
@@ -397,8 +403,7 @@
                   "Blog",
                   14
                ]
-            ],
-            "id" : "014"
+            ]
          },
          {
             "data" : [
@@ -415,11 +420,12 @@
                   13
                ]
             ],
-            "id" : "015",
-            "name" : "015"
+            "name" : "015",
+            "id" : "015"
          },
          {
             "id" : "016",
+            "name" : "016",
             "data" : [
                [
                   "Perl 5",
@@ -433,11 +439,11 @@
                   "Blog",
                   11
                ]
-            ],
-            "name" : "016"
+            ]
          },
          {
             "id" : "017",
+            "name" : "017",
             "data" : [
                [
                   "Perl 5",
@@ -451,10 +457,10 @@
                   "Blog",
                   11
                ]
-            ],
-            "name" : "017"
+            ]
          },
          {
+            "id" : "018",
             "data" : [
                [
                   "Perl 5",
@@ -469,11 +475,9 @@
                   12
                ]
             ],
-            "id" : "018",
             "name" : "018"
          },
          {
-            "name" : "019",
             "id" : "019",
             "data" : [
                [
@@ -488,11 +492,10 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "name" : "019"
          },
          {
-            "name" : "020",
-            "id" : "020",
             "data" : [
                [
                   "Perl 5",
@@ -506,10 +509,11 @@
                   "Blog",
                   13
                ]
-            ]
+            ],
+            "name" : "020",
+            "id" : "020"
          },
          {
-            "name" : "021",
             "id" : "021",
             "data" : [
                [
@@ -524,14 +528,14 @@
                   "Blog",
                   7
                ]
-            ]
+            ],
+            "name" : "021"
          },
          {
-            "id" : "022",
             "data" : [
                [
                   "Perl 5",
-                  13
+                  15
                ],
                [
                   "Perl 6",
@@ -542,13 +546,9 @@
                   2
                ]
             ],
-            "name" : "022"
+            "name" : "022",
+            "id" : "022"
          }
       ]
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
    }
 }
diff --git a/stats/pwc-leaders.json b/stats/pwc-leaders.json
index f3c0581a6f..2da20e304b 100644
--- a/stats/pwc-leaders.json
+++ b/stats/pwc-leaders.json
@@ -1,18 +1,16 @@
 {
    "series" : [
       {
-         "name" : "Perl Weekly Challenge Leaders",
-         "colorByPoint" : "true",
          "data" : [
             {
-               "drilldown" : "Joelle Maslak",
+               "name" : "#1: Joelle Maslak",
                "y" : 232,
-               "name" : "#1: Joelle Maslak"
+               "drilldown" : "Joelle Maslak"
             },
             {
                "name" : "#2: Laurent Rosenfeld",
-               "drilldown" : "Laurent Rosenfeld",
-               "y" : 232
+               "y" : 232,
+               "drilldown" : "Laurent Rosenfeld"
             },
             {
                "drilldown" : "Jaldhar H. Vyas",
@@ -20,9 +18,9 @@
                "name" : "#3: Jaldhar H. Vyas"
             },
             {
-               "name" : "#4: Ruben Westerberg",
                "y" : 156,
-               "drilldown" : "Ruben Westerberg"
+               "drilldown" : "Ruben Westerberg",
+               "name" : "#4: Ruben Westerberg"
             },
             {
                "y" : 136,
@@ -30,9 +28,9 @@
                "name" : "#5: Adam Russell"
             },
             {
-               "y" : 134,
+               "name" : "#6: Athanasius",
                "drilldown" : "Athanasius",
-               "name" : "#6: Athanasius"
+               "y" : 134
             },
             {
                "name" : "#7: Arne Sommer",
@@ -40,14 +38,14 @@
                "y" : 118
             },
             {
+               "name" : "#8: Kian-Meng Ang",
                "y" : 118,
-               "drilldown" : "Kian-Meng Ang",
-               "name" : "#8: Kian-Meng Ang"
+               "drilldown" : "Kian-Meng Ang"
             },
             {
                "name" : "#9: E. Choroba",
-