- Added solutions by Laurent Rosenfeld.

15 files changed, 1253 insertions, 1130 deletions

diff --git a/challenge-038/laurent-rosenfeld/blog.txt b/challenge-038/laurent-rosenfeld/blog.txt
new file mode 100644
index 0000000000..4ab9876c4f
--- /dev/null
+++ b/challenge-038/laurent-rosenfeld/blog.txt
@@ -0,0 +1 @@
+http://blogs.perl.org/users/laurent_r/2019/12/perl-weekly-challenge-38-date-finder-and-word-game.html
diff --git a/challenge-038/laurent-rosenfeld/perl5/ch-1.pl b/challenge-038/laurent-rosenfeld/perl5/ch-1.pl
new file mode 100644
index 0000000000..e16d944468
--- /dev/null
+++ b/challenge-038/laurent-rosenfeld/perl5/ch-1.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use feature qw/say/;
+use Time::Local;
+
+my $in = shift // '2230120';
+die "Input should be seven digits\n" unless $in =~ /^\d{7}$/;
+
+my ($y1, $y2, $m, $d) = $in =~ /^(\d)(\d\d)(\d\d)(\d\d)/;
+die "First digit should be 1 or 2\n" if $y1 !~ /[12]/;
+my $year = $y1 == 1 ? "20$y2" : "19$y2";
+die "Digits 4 and 5 should be a valid month number\n" unless $m =~ /(0\d)|(1[012])/;
+die "Digits 6 and 7 should be a valid day in month\n" unless $d =~ /([012]\d)|(3[01])/;
+my $test = eval { timelocal 0, 0, 0, $d, $m-1, $year - 1900 };
+warn $@ if $@;
+die "$in is equivalent to $year-$m-$d, which is an invalid date\n" unless defined $test;
+say "$in is equivalent to $year-$m-$d.";
diff --git a/challenge-038/laurent-rosenfeld/perl6/ch-1.p6 b/challenge-038/laurent-rosenfeld/perl6/ch-1.p6
new file mode 100644
index 0000000000..8f452f6ea5
--- /dev/null
+++ b/challenge-038/laurent-rosenfeld/perl6/ch-1.p6
@@ -0,0 +1,15 @@
+use v6;
+
+sub MAIN ($in where * ~~ /^\d ** 7$/ = '2230120') {
+    my ($y1, $y2, $m, $d) = ($in ~~ /^(\d)(\d\d)(\d\d)(\d\d)/)[0..3];
+    die "First digit should be 1 or 2\n" if $y1 !~~ /<[12]>/;
+    my $year = $y1 == 1 ?? "20$y2" !! "19$y2";
+    die "Digits 4 and 5 should be a valid month number\n" unless $m ~~ /(0\d) | (1<[012]>)/;
+    die "Digits 6 and 7 should be a valid day in month\n" unless $d ~~ /(<[012]>\d) | (3<[01]>)/;
+
+    try {
+        my $test = Date.new($year, $m, $d);
+    }
+    die "$in is equivalent to $year-$m-$d, which is an invalid date\n" if $!;
+    say "$in is equivalent to $year-$m-$d.";
+}
diff --git a/challenge-038/laurent-rosenfeld/perl6/ch-1a.p6 b/challenge-038/laurent-rosenfeld/perl6/ch-1a.p6
new file mode 100644
index 0000000000..db82aa455c
--- /dev/null
+++ b/challenge-038/laurent-rosenfeld/perl6/ch-1a.p6
@@ -0,0 +1,20 @@
+use v6;
+
+grammar My-custom-date {
+    token TOP { <y1> <y2> <m> <d> }
+    token y1  { <[12]> }
+    token y2  { \d ** 2}
+    token m   { 0\d | 1<[012]> }
+    token d   { <[012]> \d | 3<[01]> }
+}
+
+sub MAIN ($in where * ~~ /^\d ** 7$/ = '2230120') {
+    my $matched  = so My-custom-date.parse($in);
+    say "Invalid input value $in" and exit unless $matched;
+    my $year = $<y1> == 1 ?? "20$<y2>" !! "19$<y2>";
+    try {
+        my $test = Date.new($year, $<m>, $<d>);
+    }
+    say "ERROR: $in is equivalent to $year-$<m>-$<d>, which is an invalid date\n" and exit if $!;
+    say "$in is equivalent to $year-$<m>-$<d>.";
+}
diff --git a/challenge-038/laurent-rosenfeld/perl6/ch-2.p6 b/challenge-038/laurent-rosenfeld/perl6/ch-2.p6
new file mode 100644
index 0000000000..57e51437bb
--- /dev/null
+++ b/challenge-038/laurent-rosenfeld/perl6/ch-2.p6
@@ -0,0 +1,46 @@
+use v6;
+
+constant %tile-values =
+    A => 1, B => 4, C => 5, D => 3, E => 2,
+    F => 3, G => 1, H => 5, I => 1, J => 2,
+    K => 10, L => 2, M => 5, N => 4, O => 5,
+    P => 3, Q => 10, R => 2, S => 1, T => 5,
+    U => 1, V => 2, W => 3, X => 1, Y => 2, Z => 1;
+
+constant %tile-count =
+    A => 8, B => 5, C => 4, D => 3, E => 9,
+    F => 3, G => 3, H => 3, I => 5, J => 3,
+    K => 2, L => 3, M => 4, N => 4, O => 3,
+    P => 5, Q => 2, R => 3, S => 7, T => 5,
+    U => 5, V => 3, W => 5, X => 2, Y => 5, Z => 5;
+
+my $tile-bag = (map {$_ xx %tile-count{$_}}, keys %tile-count).Bag;
+
+sub MAIN (Int $count = 7) {
+    my %word-list;
+    for "words.txt".IO.lines -> $line {
+        next if $line.chars > $count;
+        my $ordered = $line.uc.comb.sort.join("");
+        my $line-value = [+] $ordered.comb.map({%tile-values{$_}});
+        %word-list{$ordered}<word> = $line;
+        # Note we will keep only one word for anagrams, but
+        # that's OK since anagrams have the same value
+        %word-list{$ordered}<value> = $line-value;
+    }
+    for 1..10 {
+        my @picked-tiles = $tile-bag.pick($count);
+        my $max-combination = "";
+        my $max-value = 0;
+        for @picked-tiles.combinations -> $candidate {
+            my $ordered = $candidate.sort.join("");
+            next unless %word-list{$ordered}:exists;
+            if %word-list{$ordered}<value> > $max-value {
+                $max-value = %word-list{$ordered}<value>;
+                $max-combination = $ordered;
+            }
+        }
+        say "The best candidate for list ", @picked-tiles.join(""), " is:";
+        say "    No word found!" and next unless $max-value;
+        say "    %word-list{$max-combination}<word> (score: $max-value)";
+    }
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index e0623d0144..43e1e2d329 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,130 +1,33 @@
 {
-   "title" : {
-      "text" : "Perl Weekly Challenge - 038"
-   },
-   "chart" : {
-      "type" : "column"
+   "subtitle" : {
+      "text" : "[Champions: 20] Last updated at 2019-12-16 00:28:07 GMT"
    },
-   "series" : [
-      {
-         "colorByPoint" : 1,
-         "data" : [
-            {
-               "y" : 3,
-               "name" : "Adam Russell",
-               "drilldown" : "Adam Russell"
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Andrezgz",
-               "name" : "Andrezgz"
-            },
-            {
-               "y" : 3,
-               "name" : "Arne Sommer",
-               "drilldown" : "Arne Sommer"
-            },
-            {
-               "y" : 4,
-               "drilldown" : "Burkhard Nickels",
-               "name" : "Burkhard Nickels"
-            },
-            {
-               "drilldown" : "Colin Crain",
-               "name" : "Colin Crain",
-               "y" : 2
-            },
-            {
-               "name" : "Daniel Mita",
-               "drilldown" : "Daniel Mita",
-               "y" : 2
-            },
-            {
-               "y" : 3,
-               "name" : "Dave Jacoby",
-               "drilldown" : "Dave Jacoby"
-            },
-            {
-               "y" : 2,
-               "name" : "Duane Powell",
-               "drilldown" : "Duane Powell"
-            },
-            {
-               "drilldown" : "E. Choroba",
-               "name" : "E. Choroba",
-               "y" : 3
-            },
-            {
-               "y" : 5,
-               "name" : "Javier Luque",
-               "drilldown" : "Javier Luque"
-            },
-            {
-               "name" : "Kevin Colyer",
-               "drilldown" : "Kevin Colyer",
-               "y" : 2
-            },
-            {
-               "y" : 2,
-               "name" : "Noud",
-               "drilldown" : "Noud"
-            },
-            {
-               "drilldown" : "Pete Houston",
-               "name" : "Pete Houston",
-               "y" : 1
-            },
-            {
-               "y" : 4,
-               "drilldown" : "Roger Bell West",
-               "name" : "Roger Bell West"
-            },
-            {
-               "name" : "Ruben Westerberg",
-               "drilldown" : "Ruben Westerberg",
-               "y" : 4
-            },
-            {
-               "name" : "Ryan Thompson",
-               "drilldown" : "Ryan Thompson",
-               "y" : 4
-            },
-            {
-               "drilldown" : "Saif Ahmed",
-               "name" : "Saif Ahmed",
-               "y" : 2
-            },
-            {
-               "name" : "Simon Proctor",
-               "drilldown" : "Simon Proctor",
-               "y" : 2
-            },
-            {
-               "y" : 1,
-               "drilldown" : "Steven Wilson",
-               "name" : "Steven Wilson"
-            }
-         ],
-         "name" : "Perl Weekly Challenge - 038"
-      }
-   ],
    "xAxis" : {
       "type" : "category"
    },
    "legend" : {
       "enabled" : 0
    },
-   "subtitle" : {
-      "text" : "[Champions: 19] Last updated at 2019-12-16 00:21:06 GMT"
+   "chart" : {
+      "type" : "column"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 038"
    },
    "tooltip" : {
       "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
-      "followPointer" : 1,
-      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>"
+      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
+      "followPointer" : 1
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
    },
    "drilldown" : {
       "series" : [
          {
+            "name" : "Adam Russell",
             "data" : [
                [
                   "Perl 5",
@@ -135,20 +38,20 @@
                   1
                ]
             ],
-            "name" : "Adam Russell",
             "id" : "Adam Russell"
          },
          {
+            "id" : "Andrezgz",
             "name" : "Andrezgz",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ],
-            "id" : "Andrezgz"
+            ]
          },
          {
+            "id" : "Arne Sommer",
             "data" : [
                [
                   "Perl 6",
@@ -159,11 +62,10 @@
                   1
                ]
             ],
-            "name" : "Arne Sommer",
-            "id" : "Arne Sommer"
+            "name" : "Arne Sommer"
          },
          {
-            "name" : "Burkhard Nickels",
+            "id" : "Burkhard Nickels",
             "data" : [
                [
                   "Perl 5",
@@ -174,29 +76,30 @@
                   2
                ]
             ],
-            "id" : "Burkhard Nickels"
+            "name" : "Burkhard Nickels"
          },
          {
-            "id" : "Colin Crain",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "name" : "Colin Crain"
+            "name" : "Colin Crain",
+            "id" : "Colin Crain"
          },
          {
-            "name" : "Daniel Mita",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
             ],
+            "name" : "Daniel Mita",
             "id" : "Daniel Mita"
          },
          {
+            "name" : "Dave Jacoby",
             "data" : [
                [
                   "Perl 5",
@@ -207,7 +110,6 @@
                   1
                ]
             ],
-            "name" : "Dave Jacoby",
             "id" : "Dave Jacoby"
          },
          {
@@ -221,7 +123,7 @@
             "id" : "Duane Powell"
          },
          {
-            "name" : "E. Choroba",
+            "id" : "E. Choroba",
             "data" : [
                [
                   "Perl 5",
@@ -232,10 +134,10 @@
                   1
                ]
             ],
-            "id" : "E. Choroba"
+            "name" : "E. Choroba"
          },
          {
-            "id" : "Javier Luque",
+            "name" : "Javier Luque",
             "data" : [
                [
                   "Perl 5",
@@ -250,17 +152,35 @@
                   1
                ]
             ],
-            "name" : "Javier Luque"
+            "id" : "Javier Luque"
          },
          {
             "id" : "Kevin Colyer",
+            "name" : "Kevin Colyer",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
-            ],
-            "name" : "Kevin Colyer"
+            ]
+         },
+         {
+            "id" : "Laurent Rosenfeld",
+            "name" : "Laurent Rosenfeld",
+            "data" : [
+               [
+                  "Perl 5",
+                  1
+               ],
+               [
+                  "Perl 6",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ]
          },
          {
             "name" : "Noud",
@@ -273,14 +193,14 @@
             "id" : "Noud"
          },
          {
+            "id" : "Pete Houston",
             "name" : "Pete Houston",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
-            ],
-            "id" : "Pete Houston"
+            ]
          },
          {
             "data" : [
@@ -297,7 +217,7 @@
             "id" : "Roger Bell West"
          },
          {
-            "name" : "Ruben Westerberg",
+            "id" : "Ruben Westerberg",
             "data" : [
                [
                   "Perl 5",
@@ -308,10 +228,9 @@
                   2
                ]
             ],
-            "id" : "Ruben Westerberg"
+            "name" : "Ruben Westerberg"
          },
          {
-            "id" : "Ryan Thompson",
             "data" : [
                [
                   "Perl 5",
@@ -322,7 +241,8 @@
                   2
                ]
             ],
-            "name" : "Ryan Thompson"
+            "name" : "Ryan Thompson",
+            "id" : "Ryan Thompson"
          },
          {
             "id" : "Saif Ahmed",
@@ -335,39 +255,142 @@
             ]
          },
          {
+            "id" : "Simon Proctor",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
             ],
-            "name" : "Simon Proctor",
-            "id" : "Simon Proctor"
+            "name" : "Simon Proctor"
          },
          {
-            "id" : "Steven Wilson",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
             ],
-            "name" : "Steven Wilson"
+            "name" : "Steven Wilson",
+            "id" : "Steven Wilson"
          }
       ]
    },
+   "series" : [
+      {
+         "name" : "Perl Weekly Challenge - 038",
+         "data" : [
+            {
+               "name" : "Adam Russell",
+               "drilldown" : "Adam Russell",
+               "y" : 3
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Andrezgz",
+               "name" : "Andrezgz"
+            },
+            {
+               "y" : 3,
+               "name" : "Arne Sommer",
+               "drilldown" : "Arne Sommer"
+            },
+            {
+               "y" : 4,
+               "drilldown" : "Burkhard Nickels",
+               "name" : "Burkhard Nickels"
+            },
+            {
+               "name" : "Colin Crain",
+               "drilldown" : "Colin Crain",
+               "y" : 2
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Daniel Mita",
+               "name" : "Daniel Mita"
+            },
+            {
+               "y" : 3,
+               "drilldown" : "Dave Jacoby",
+               "name" : "Dave Jacoby"
+            },
+            {
+               "y" : 2,
+               "name" : "Duane Powell",
+               "drilldown" : "Duane Powell"
+            },
+            {
+               "y" : 3,
+               "name" : "E. Choroba",
+               "drilldown" : "E. Choroba"
+            },
+            {
+               "name" : "Javier Luque",
+               "drilldown" : "Javier Luque",
+               "y" : 5
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Kevin Colyer",
+               "name" : "Kevin Colyer"
+            },
+            {
+               "y" : 4,
+               "drilldown" : "Laurent Rosenfeld",
+               "name" : "Laurent Rosenfeld"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Noud",
+               "name" : "Noud"
+            },
+            {
+               "drilldown" : "Pete Houston",
+               "name" : "Pete Houston",
+               "y" : 1
+            },
+            {
+               "name" : "Roger Bell West",
+               "drilldown" : "Roger Bell West",
+               "y" : 4
+            },
+            {
+               "drilldown" : "Ruben Westerberg",
+               "name" : "Ruben Westerberg",
+               "y" : 4
+            },
+            {
+               "drilldown" : "Ryan Thompson",
+               "name" : "Ryan Thompson",
+               "y" : 4
+            },
+            {
+               "name" : "Saif Ahmed",
+               "drilldown" : "Saif Ahmed",
+               "y" : 2
+            },
+            {
+               "drilldown" : "Simon Proctor",
+               "name" : "Simon Proctor",
+               "y" : 2
+            },
+            {
+               "drilldown" : "Steven Wilson",
+               "name" : "Steven Wilson",
+               "y" : 1
+            }
+         ],
+         "colorByPoint" : 1
+      }
+   ],
    "plotOptions" : {
       "series" : {
          "borderWidth" : 0,
          "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
+            "enabled" : 1,
+            "format" : "{point.y}"
          }
       }
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 6790e49386..77f52b72b8 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -2,62 +2,62 @@
    "title" : {
       "text" : "Perl Weekly Challenge Contributions - 2019"
    },
-   "chart" : {
-      "type" : "column"
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2019-12-16 00:21:14 GMT"
-   },
-   "legend" : {
-      "enabled" : "false"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : null
-      },
-      "min" : 0
-   },
    "xAxis" : {
+      "type" : "category",
       "labels" : {
          "style" : {
             "fontFamily" : "Verdana, sans-serif",
             "fontSize" : "13px"
          }
-      },
-      "type" : "category"
-   },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
+      }
    },
    "series" : [
       {
-         "name" : "Contributions",
          "dataLabels" : {
+            "rotation" : -90,
+            "color" : "#FFFFFF",
+            "align" : "right",
             "style" : {
                "fontFamily" : "Verdana, sans-serif",
                "fontSize" : "13px"
             },
-            "format" : "{point.y:.0f}",
             "y" : 10,
-            "align" : "right",
-            "color" : "#FFFFFF",
             "enabled" : "true",
-            "rotation" : -90
+            "format" : "{point.y:.0f}"
          },
+         "name" : "Contributions",
          "data" : [
             [
                "Blog",
-               410
+               411
             ],
             [
                "Perl 5",
-               1575
+               1576
             ],
             [
                "Perl 6",
-               941
+               943
             ]
          ]
       }
-   ]
+   ],
+   "legend" : {
+      "enabled" : "false"
+   },
+   "yAxis" : {
+      "min" : 0,
+      "title" : {
+         "text" : null
+      }
+   },
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "subtitle" : {
+      "text" : "Last updated at 2019-12-16 00:28:17 GMT"
+   }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 25ecfd8397..c4e75765c9 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,219 +1,4 @@
 {
-   "subtitle" : {
-      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-12-16 00:21:14 GMT"
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge Language"
-   },
-   "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"
-   },
-   "series" : [
-      {
-         "colorByPoint" : "true",
-         "data" : [
-            {
-               "y" : 136,
-               "name" : "#001",
-               "drilldown" : "001"
-            },
-            {
-               "y" : 104,
-               "drilldown" : "002",
-               "name" : "#002"
-            },
-            {
-               "drilldown" : "003",
-               "name" : "#003",
-               "y" : 67
-            },
-            {
-               "name" : "#004",
-               "drilldown" : "004",
-               "y" : 87
-            },
-            {
-               "name" : "#005",
-               "drilldown" : "005",
-               "y" : 67
-            },
-            {
-               "y" : 48,
-               "name" : "#006",
-               "drilldown" : "006"
-            },
-            {
-               "y" : 56,
-               "drilldown" : "007",
-               "name" : "#007"
-            },
-            {
-               "name" : "#008",
-               "drilldown" : "008",
-               "y" : 70
-            },
-            {
-               "y" : 68,
-               "name" : "#009",
-               "drilldown" : "009"
-            },
-            {
-               "y" : 60,
-               "name" : "#010",
-               "drilldown" : "010"
-            },
-            {
-               "y" : 79,
-               "drilldown" : "011",
-               "name" : "#011"
-            },
-            {
-               "name" : "#012",
-               "drilldown" : "012",
-               "y" : 83
-            },
-            {
-               "name" : "#013",
-               "drilldown" : "013",
-               "y" : 76
-            },
-            {
-               "name" : "#014",
-               "drilldown" : "014",
-               "y" : 96
-            },
-            {
-               "name" : "#015",
-               "drilldown" : "015",
-               "y" : 93
-            },
-            {
-               "y" : 66,
-               "drilldown" : "016",
-               "name" : "#016"
-            },
-            {
-               "y" : 79,
-               "drilldown" : "017",
-               "name" : "#017"
-            },
-            {
-               "name" : "#018",
-               "drilldown" : "018",
-               "y" : 76
-            },
-            {
-               "y" : 95,
-               "drilldown" : "019",
-               "name" : "#019"
-            },
-            {
-               "drilldown" : "020",
-               "name" : "#020",
-               "y" : 95
-            },
-            {
-               "drilldown" : "021",
-               "name" : "#021",
-               "y" : 67
-            },
-            {
-               "y" : 63,
-               "drilldown" : "022",
-               "name" : "#022"
-            },
-            {
-               "name" : "#023",
-               "drilldown" : "023",
-               "y" : 91
-            },
-            {
-               "y" : 70,
-               "name" : "#024",
-               "drilldown" : "024"
-            },
-            {
-               "drilldown" : "025",
-               "name" : "#025",
-               "y" : 55
-            },
-            {
-               "y" : 70,
-               "drilldown" : "026",
-               "name" : "#026"
-            },
-            {
-               "y" : 58,
-               "drilldown" : "027",
-               "name" : "#027"
-            },
-            {
-               "y" : 78,
-               "name" : "#028",
-               "drilldown" : "028"
-            },
-            {
-               "y" : 77,
-               "drilldown" : "029",
-               "name" : "#029"
-            },
-            {
-               "name" : "#030",
-               "drilldown" : "030",
-               "y" : 115
-            },
-            {
-               "drilldown" : "031",
-               "name" : "#031",
-               "y" : 87
-            },
-            {
-               "y" : 92,
-               "name" : "#032",
-               "drilldown" : "032"
-            },
-            {
-               "drilldown" : "033",
-               "name" : "#033",
-               "y" : 108
-            },
-            {
-               "y" : 60,
-               "drilldown" : "034",
-               "name" : "#034"
-            },
-            {
-               "y" : 60,
-               "name" : "#035",
-               "drilldown" : "035"
-            },
-            {
-               "drilldown" : "036",
-               "name" : "#036",
-               "y" : 61
-            },
-            {
-               "y" : 61,
-               "drilldown" : "037",
-               "name" : "#037"
-            },
-            {
-               "drilldown" : "038",
-               "name" : "#038",
-               "y" : 52
-            }
-         ],
-         "name" : "Perl Weekly Challenge Languages"
-      }
-   ],
-   "xAxis" : {
-      "type" : "category"
-   },
    "plotOptions" : {
       "series" : {
          "dataLabels" : {
@@ -223,14 +8,9 @@
          "borderWidth" : 0
       }
    },
-   "legend" : {
-      "enabled" : "false"
-   },
    "drilldown" : {
       "series" : [
          {
-            "name" : "001",
-            "id" : "001",
             "data" : [
                [
                   "Perl 5",
@@ -244,7 +24,9 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "name" : "001",
+            "id" : "001"
          },
          {
             "data" : [
@@ -261,11 +43,12 @@
                   9
                ]
             ],
-            "id" : "002",
-            "name" : "002"
+            "name" : "002",
+            "id" : "002"
          },
          {
             "name" : "003",
+            "id" : "003",
             "data" : [
                [
                   "Perl 5",
@@ -279,11 +62,11 @@
                   "Blog",
                   9
                ]
-            ],
-            "id" : "003"
+            ]
          },
          {
             "id" : "004",
+            "name" : "004",
             "data" : [
                [
                   "Perl 5",
@@ -297,10 +80,10 @@
                   "Blog",
                   10
                ]
-            ],
-            "name" : "004"
+            ]
          },
          {
+            "name" : "005",
             "id" : "005",
             "data" : [
                [
@@ -315,10 +98,10 @@
                   "Blog",
                   12
                ]
-            ],
-            "name" : "005"
+            ]
          },
          {
+            "id" : "006",
             "name" : "006",
             "data" : [
                [
@@ -333,12 +116,9 @@
                   "Blog",
                   7
                ]
-            ],
-            "id" : "006"
+            ]
          },
          {
-            "name" : "007",
-            "id" : "007",
             "data" : [
                [
                   "Perl 5",
@@ -352,7 +132,9 @@
                   "Blog",
                   10
                ]
-            ]
+            ],
+            "name" : "007",