- Added solutions by Laurent Rosenfeld.

19 files changed, 1303 insertions, 1043 deletions

diff --git a/challenge-036/laurent-rosenfeld/blog.txt b/challenge-036/laurent-rosenfeld/blog.txt
new file mode 100644
index 0000000000..9583b47370
--- /dev/null
+++ b/challenge-036/laurent-rosenfeld/blog.txt
@@ -0,0 +1 @@
+http://blogs.perl.org/users/laurent_r/2019/12/perl-weekly-challenge-36-vehicle-identification-numbers-vin-and-the-knapsack-problem.html
diff --git a/challenge-036/laurent-rosenfeld/perl5/ch-1.pl b/challenge-036/laurent-rosenfeld/perl5/ch-1.pl
new file mode 100644
index 0000000000..79de77e9c0
--- /dev/null
+++ b/challenge-036/laurent-rosenfeld/perl5/ch-1.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use feature qw/say/;
+
+sub validate {
+    my $vin = shift;
+    return 0 if $vin =~ /[OIQ]/;
+    return 0 unless $vin =~ /^[A-Z0-9]{17}$/;
+    return check_digit($vin);
+}
+
+sub check_digit {
+    my $vin = shift;
+    my %translations = (
+     A => 1, B => 2, C => 3, D => 4, E => 5, F => 6, G => 7, H => 8,
+     J => 1, K => 2, L => 3, M => 4, N => 5, P => 7, R => 9, S => 2,
+     T => 3, U => 4, V => 5, W => 6, X => 7, Y => 8, Z => 9,
+    );
+    $translations{$_} = $_ for 0..9;
+
+    my @weights =
+        (8, 7, 6, 5, 4, 3, 2, 10, 0, 9, 8, 7, 6, 5, 4, 3, 2);
+    my $i = 0;
+    my $sum = 0;
+    for my $char (split //, $vin) {
+        $sum += $translations{$char} * $weights[$i++];
+    }
+    my $mod = $sum % 11;
+    $mod = 'X' if $mod == 10;
+    return 1 if $mod eq substr $vin, 8, 1;
+    return 0;
+}
+
+my $vin = shift // "1M8GDM9AXKP042788";
+say validate($vin) ? "Correct" : "Wrong";
diff --git a/challenge-036/laurent-rosenfeld/perl5/ch-1a.pl b/challenge-036/laurent-rosenfeld/perl5/ch-1a.pl
new file mode 100644
index 0000000000..8d497424fe
--- /dev/null
+++ b/challenge-036/laurent-rosenfeld/perl5/ch-1a.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use feature qw/say/;
+use Test::More tests => 16;
+
+sub validate {
+    my $vin = shift;
+    return 0 if $vin =~ /[OIQ]/;
+    return 1 if $vin =~ /^[A-Z0-9]{17}$/;
+    return 0;
+}
+
+ok validate("A" x 17),  "17 A's";
+ok validate(1 x 17)  ,  "17 digits";
+is validate("AEIOU")   , 0, "Five vowels";
+is validate(1234567890), 0, "Ten digits";
+is validate("1234AEIOU5678901"),   0, "Sixteen digits or letters";
+is validate("12345678901234567"),  1, "17 digits";
+is validate("1234567890123456Q"),  0, "16 digits and a Q";
+is validate("1234567890123456O"),  0, "16 digits and a O";
+is validate("1234567890123456I"),  0, "16 digits and a I";
+is validate("Q1234567890123456"),  0, "A Q and 16 digits";
+is validate("I1234567890123456"),  0, "An I and 16 digits";
+is validate("ABCD4567890123456"),  1, "17 digits and letters";
+is validate("ABef4567890123456"),  0, "Digits and some lower case letters";
+is validate("ABE?4567890123456"),  0, "A non alphanumerical character";
+is validate("ABCD4567 90123456"),  0, "A space";
+is validate("ABCD45678901234567"), 0, "More than 17 characters";
diff --git a/challenge-036/laurent-rosenfeld/perl5/ch-2.pl b/challenge-036/laurent-rosenfeld/perl5/ch-2.pl
new file mode 100644
index 0000000000..ec907bcaa8
--- /dev/null
+++ b/challenge-036/laurent-rosenfeld/perl5/ch-2.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use feature qw/say/;
+
+my %boxes = (
+    "R" => { "w" => 1,  val => 1  },
+    "B" => { "w" => 1,  val => 2  },
+    "G" => { "w" => 2,  val => 2  },
+    "Y" => { "w" => 12, val => 4  },
+    "P" => { "w" => 4,  val => 10 },
+);
+my $start_nb_boxes = shift // 5;
+my $max_val = 0;
+my $max_boxes;
+
+sub try_one {
+    my ($cur_weight, $cur_val, $num_boxes, $boxes_used, $last_box_used, @boxes_left) = @_;
+    if ($cur_val > $max_val) {
+        $max_val = $cur_val;
+        $max_boxes = $boxes_used;
+    }
+    for my $box (@boxes_left) {
+        next if $box lt $last_box_used;
+        my $new_cur_weight = $cur_weight + $boxes{$box}{w};
+        next if $new_cur_weight > 15 or $num_boxes <= 0;
+        my @new_boxes_left = grep $_ ne $box, @boxes_left;
+        my $new_box_used = $boxes_used ? $boxes_used . "-$box" : $box;
+        try_one ($new_cur_weight, $cur_val + $boxes{$box}{val}, $num_boxes -1, $new_box_used, $box, @new_boxes_left);
+    }
+}
+try_one (0, 0, $start_nb_boxes, "", "A", sort keys %boxes);
+say "Max: $max_val, Boxes:  $max_boxes";
diff --git a/challenge-036/laurent-rosenfeld/perl5/ch-2a.pl b/challenge-036/laurent-rosenfeld/perl5/ch-2a.pl
new file mode 100644
index 0000000000..d43ed32ba9
--- /dev/null
+++ b/challenge-036/laurent-rosenfeld/perl5/ch-2a.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use feature qw/say/;
+
+my %boxes = (
+    "R" => { "w" => 1,  val => 1  },
+    "B" => { "w" => 1,  val => 2  },
+    "G" => { "w" => 2,  val => 2  },
+    "Y" => { "w" => 12, val => 4  },
+    "P" => { "w" => 4,  val => 10 },
+);
+my $start_nb_boxes = shift // 5;
+my $max_val = 0;
+my $max_boxes;
+
+sub try_one {
+    my ($cur_weight, $cur_val, $num_boxes, $boxes_used, @boxes_left) = @_;
+    if ($cur_val > $max_val) {
+        $max_val = $cur_val;
+        $max_boxes = $boxes_used;
+    }
+    for my $box (@boxes_left) {
+        my $new_cur_weight = $cur_weight + $boxes{$box}{w};
+        next if $new_cur_weight > 15 or $num_boxes <= 0;
+        my @new_boxes_left = grep $_ ne $box, @boxes_left;
+        my $new_box_used = $boxes_used ? $boxes_used . "-$box" : $box;
+        try_one ($new_cur_weight, $cur_val + $boxes{$box}{val}, $num_boxes -1, $new_box_used, @new_boxes_left);
+    }
+}
+try_one (0, 0, $start_nb_boxes, "", keys %boxes);
+say "Max: $max_val, Boxes:  $max_boxes";
diff --git a/challenge-036/laurent-rosenfeld/perl6/ch-1.p6 b/challenge-036/laurent-rosenfeld/perl6/ch-1.p6
new file mode 100644
index 0000000000..48376006e2
--- /dev/null
+++ b/challenge-036/laurent-rosenfeld/perl6/ch-1.p6
@@ -0,0 +1,26 @@
+use v6;
+
+sub validate (Str $vin) {
+    return False if $vin ~~ /<[OIQ]>/;
+    return False unless $vin ~~ /^ <[A..Z0..9]> ** 17 $/;
+    return check-digit $vin;
+}
+
+sub check-digit (Str $vin) {
+    my %translations =
+     A => 1, B => 2, C => 3, D => 4, E => 5, F => 6, G => 7, H => 8,
+     J => 1, K => 2, L => 3, M => 4, N => 5, P => 7, R => 9, S => 2,
+     T => 3, U => 4, V => 5, W => 6, X => 7, Y => 8, Z => 9;
+    %translations{$_} = $_ for 0..9;
+    my @weights = 8, 7, 6, 5, 4, 3, 2, 10, 0, 9, 8, 7, 6, 5, 4, 3, 2;
+    my $i = 0;
+    my $sum = sum map { %translations{$_} * @weights[$i++]}, $vin.comb;
+    my $mod = $sum % 11;
+    $mod = 'X' if $mod == 10;
+    return True if $mod eq substr $vin, 8, 1;
+    return False;
+}
+
+sub MAIN (Str $vin = "1M8GDM9AXKP042788") {
+    say validate($vin) ?? "Correct" !! "Wrong";
+}
diff --git a/challenge-036/laurent-rosenfeld/perl6/ch-1a.p6 b/challenge-036/laurent-rosenfeld/perl6/ch-1a.p6
new file mode 100644
index 0000000000..13d306ee2d
--- /dev/null
+++ b/challenge-036/laurent-rosenfeld/perl6/ch-1a.p6
@@ -0,0 +1,27 @@
+use v6;
+use Test;
+
+sub validate ($vin) {
+    return False if $vin ~~ /<[OIQ]>/;
+    return True if $vin ~~ /^ <[A..Z0..9]> ** 17 $/;
+    return False;
+}
+
+plan 16;
+
+ok  validate("A" x 17),   "17 A's";
+ok  validate(1 x 17),     "17 digits";
+nok validate("AEIOU"),    "Five vowels";
+nok validate(1234567890), "Ten digits";
+nok validate("1234AEIOU5678901"),   "sixteen digits or letters";
+ok  validate("12345678901234567"),  "17 digits";
+nok validate("1234567890123456Q"),  "16 digits and a Q";
+nok validate("1234567890123456O"),  "16 digits and a O";
+nok validate("1234567890123456I"),  "16 digits and a I";
+nok validate("Q1234567890123456"),  "A Q and 16 digits";
+nok validate("I1234567890123456"),  "An I and 16 digits";
+ok  validate("ABCD4567890123456"),  "17 digits and letters";
+nok validate("ABef4567890123456"),  "Digits and some lower case letters";
+nok validate("ABE?4567890123456"),  "A non alphanumerical character";
+nok validate("ABCD4567 90123456"),  "A space";
+nok validate("ABCD45678901234567"), "More than 17 characters";
diff --git a/challenge-036/laurent-rosenfeld/perl6/ch-2.p6 b/challenge-036/laurent-rosenfeld/perl6/ch-2.p6
new file mode 100644
index 0000000000..109f2a0ba8
--- /dev/null
+++ b/challenge-036/laurent-rosenfeld/perl6/ch-2.p6
@@ -0,0 +1,20 @@
+use v6;
+
+constant %boxes = (
+    "R" => { "w" => 1,  val => 1  },
+    "B" => { "w" => 1,  val => 2  },
+    "G" => { "w" => 2,  val => 2  },
+    "Y" => { "w" => 12, val => 4  },
+    "P" => { "w" => 4,  val => 10 },
+);
+sub MAIN (UInt $max-nb = 5) {
+    my ($best, $max) = find-best %boxes.keys.combinations: 1..$max-nb;
+    say "Max: $max; ", $best;
+}
+sub find-best (@candidates) {
+    my @valid-candidates = gather for @candidates -> $cand {
+        take [ $cand, $cand.map({ %boxes{$_}{'val'}}).sum ]
+            if $cand.map({ %boxes{$_}{'w'}}).sum <= 15;
+    }
+    return  @valid-candidates.max({$_[1]});
+}
diff --git a/challenge-036/laurent-rosenfeld/perl6/ch-2a.p6 b/challenge-036/laurent-rosenfeld/perl6/ch-2a.p6
new file mode 100644
index 0000000000..3926ba62e5
--- /dev/null
+++ b/challenge-036/laurent-rosenfeld/perl6/ch-2a.p6
@@ -0,0 +1,33 @@
+use v6;
+
+constant %boxes = (
+    "R" => { "w" => 1,  val => 1  },
+    "B" => { "w" => 1,  val => 2  },
+    "G" => { "w" => 2,  val => 2  },
+    "Y" => { "w" => 12, val => 4  },
+    "P" => { "w" => 4,  val => 10 },
+);
+
+sub MAIN (UInt $start-nb-boxes = 5) {
+    my @boxes = keys %boxes;
+    my $*max-val = 0;
+    my $*max-boxes = "";
+    try-one(0, 0, $start-nb-boxes, "", "A", @boxes);
+    say "Max: $*max-val, Boxes:  $*max-boxes";
+    say now - INIT now;
+}
+
+sub try-one ($cur-weight, $cur-val, $num-boxes, $boxes-used, $last-box-used, @boxes-left) {
+    if $cur-val > $*max-val {
+        $*max-val = $cur-val;
+        $*max-boxes = $boxes-used;
+    }
+    for @boxes-left -> $box {
+        next if $box lt $last-box-used;
+        my $new-cur-weight = $cur-weight + %boxes{$box}{'w'};
+        next if $new-cur-weight > 15 or $num-boxes <= 0;
+        my @new-boxes-left = grep { $_ ne $box}, @boxes-left;
+        my $new-box-used = $boxes-used ?? $boxes-used ~ "-$box" !! $box;
+        try-one $new-cur-weight, $cur-val + %boxes{$box}{'val'}, $num-boxes -1, $new-box-used, $box, @new-boxes-left;
+    }
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 3601eb3d77..d855f6eff5 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,24 +1,4 @@
 {
-   "legend" : {
-      "enabled" : 0
-   },
-   "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/>"
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "plotOptions" : {
-      "series" : {
-         "borderWidth" : 0,
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         }
-      }
-   },
    "drilldown" : {
       "series" : [
          {
@@ -32,28 +12,26 @@
             "name" : "Andrezgz"
          },
          {
-            "id" : "Duane Powell",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
+            "id" : "Duane Powell",
             "name" : "Duane Powell"
          },
          {
-            "id" : "E. Choroba",
-            "name" : "E. Choroba",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
-            ]
+            ],
+            "id" : "E. Choroba",
+            "name" : "E. Choroba"
          },
          {
-            "id" : "Javier Luque",
-            "name" : "Javier Luque",
             "data" : [
                [
                   "Perl 5",
@@ -67,41 +45,61 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "Javier Luque",
+            "name" : "Javier Luque"
          },
          {
-            "id" : "Kevin Colyer",
             "name" : "Kevin Colyer",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
-            ]
+            ],
+            "id" : "Kevin Colyer"
+         },
+         {
+            "name" : "Laurent Rosenfeld",
+            "data" : [
+               [
+                  "Perl 5",
+                  2
+               ],
+               [
+                  "Perl 6",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "id" : "Laurent Rosenfeld"
          },
          {
-            "name" : "Lubos Kolouch",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "id" : "Lubos Kolouch"
+            "id" : "Lubos Kolouch",
+            "name" : "Lubos Kolouch"
          },
          {
             "id" : "Mark Anderson",
-            "name" : "Mark Anderson",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
-            ]
+            ],
+            "name" : "Mark Anderson"
          },
          {
-            "id" : "Roger Bell West",
             "name" : "Roger Bell West",
+            "id" : "Roger Bell West",
             "data" : [
                [
                   "Perl 5",
@@ -114,8 +112,6 @@
             ]
          },
          {
-            "id" : "Ruben Westerberg",
-            "name" : "Ruben Westerberg",
             "data" : [
                [
                   "Perl 5",
@@ -125,7 +121,9 @@
                   "Perl 6",
                   2
                ]
-            ]
+            ],
+            "id" : "Ruben Westerberg",
+            "name" : "Ruben Westerberg"
          },
          {
             "id" : "Saif Ahmed",
@@ -138,13 +136,13 @@
             "name" : "Saif Ahmed"
          },
          {
+            "name" : "Simon Proctor",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
             ],
-            "name" : "Simon Proctor",
             "id" : "Simon Proctor"
          },
          {
@@ -158,37 +156,69 @@
             "id" : "Steven Wilson"
          },
          {
-            "id" : "Ulrich Rieke",
-            "name" : "Ulrich Rieke",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
-            ]
+            ],
+            "id" : "Ulrich Rieke",
+            "name" : "Ulrich Rieke"
          }
       ]
    },
    "subtitle" : {
-      "text" : "[Champions: 13] Last updated at 2019-11-30 15:27:19 GMT"
+      "text" : "[Champions: 14] Last updated at 2019-12-01 17:34:46 GMT"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "legend" : {
+      "enabled" : 0
+   },
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         },
+         "borderWidth" : 0
+      }
+   },
+   "tooltip" : {
+      "followPointer" : 1,
+      "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/>"
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 036"
    },
    "series" : [
       {
          "name" : "Perl Weekly Challenge - 036",
+         "colorByPoint" : 1,
          "data" : [
             {
+               "y" : 2,
                "name" : "Andrezgz",
-               "drilldown" : "Andrezgz",
-               "y" : 2
+               "drilldown" : "Andrezgz"
             },
             {
-               "drilldown" : "Duane Powell",
+               "y" : 2,
                "name" : "Duane Powell",
-               "y" : 2
+               "drilldown" : "Duane Powell"
             },
             {
-               "name" : "E. Choroba",
                "drilldown" : "E. Choroba",
+               "name" : "E. Choroba",
                "y" : 1
             },
             {
@@ -197,24 +227,29 @@
                "drilldown" : "Javier Luque"
             },
             {
-               "drilldown" : "Kevin Colyer",
                "name" : "Kevin Colyer",
-               "y" : 2
+               "y" : 2,
+               "drilldown" : "Kevin Colyer"
+            },
+            {
+               "y" : 5,
+               "name" : "Laurent Rosenfeld",
+               "drilldown" : "Laurent Rosenfeld"
             },
             {
-               "y" : 2,
                "drilldown" : "Lubos Kolouch",
-               "name" : "Lubos Kolouch"
+               "name" : "Lubos Kolouch",
+               "y" : 2
             },
             {
-               "y" : 1,
                "drilldown" : "Mark Anderson",
+               "y" : 1,
                "name" : "Mark Anderson"
             },
             {
-               "y" : 4,
+               "drilldown" : "Roger Bell West",
                "name" : "Roger Bell West",
-               "drilldown" : "Roger Bell West"
+               "y" : 4
             },
             {
                "drilldown" : "Ruben Westerberg",
@@ -222,38 +257,26 @@
                "y" : 4
             },
             {
-               "y" : 2,
                "name" : "Saif Ahmed",
+               "y" : 2,
                "drilldown" : "Saif Ahmed"
             },
             {
-               "y" : 2,
                "drilldown" : "Simon Proctor",
+               "y" : 2,
                "name" : "Simon Proctor"
             },
             {
                "drilldown" : "Steven Wilson",
-               "name" : "Steven Wilson",
-               "y" : 2
+               "y" : 2,
+               "name" : "Steven Wilson"
             },
             {
                "y" : 2,
                "name" : "Ulrich Rieke",
                "drilldown" : "Ulrich Rieke"
             }
-         ],
-         "colorByPoint" : 1
-      }
-   ],
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
+         ]
       }
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 036"
-   },
-   "xAxis" : {
-      "type" : "category"
-   }
+   ]
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 92653325f7..72c3aa1b29 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,12 +1,15 @@
 {
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
    "subtitle" : {
-      "text" : "Last updated at 2019-11-30 15:27:36 GMT"
+      "text" : "Last updated at 2019-12-01 17:35:04 GMT"
    },
    "title" : {
       "text" : "Perl Weekly Challenge Contributions - 2019"
    },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
+   "chart" : {
+      "type" : "column"
    },
    "legend" : {
       "enabled" : "false"
@@ -14,50 +17,47 @@
    "xAxis" : {
       "labels" : {
          "style" : {
-            "fontSize" : "13px",
-            "fontFamily" : "Verdana, sans-serif"
+            "fontFamily" : "Verdana, sans-serif",
+            "fontSize" : "13px"
          }
       },
       "type" : "category"
    },
-   "chart" : {
-      "type" : "column"
+   "yAxis" : {
+      "min" : 0,
+      "title" : {
+         "text" : null
+      }
    },
    "series" : [
       {
-         "name" : "Contributions",
          "data" : [
             [
                "Blog",
-               385
+               386
             ],
             [
                "Perl 5",
-               1500
+               1502
             ],
             [
                "Perl 6",
-               892
+               894
             ]
          ],
          "dataLabels" : {
             "enabled" : "true",
+            "style" : {
+               "fontFamily" : "Verdana, sans-serif",
+               "fontSize" : "13px"
+            },
+            "color" : "#FFFFFF",
+            "rotation" : -90,
             "format" : "{point.y:.0f}",
-            "y" : 10,
             "align" : "right",
-            "rotation" : -90,
-            "color" : "#FFFFFF",
-            "style" : {
-               "fontSize" : "13px",
-               "fontFamily" : "Verdana, sans-serif"
-            }
-         }
+            "y" : 10
+         },
+         "name" : "Contributions"
       }
-   ],
-   "yAxis" : {
-      "title" : {
-         "text" : null
-      },
-      "min" : 0
-   }
+   ]
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 9ec8740436..41dab26fe2 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,14 +1,220 @@
 {
-   "title" : {
-      "text" : "Perl Weekly Challenge Language"
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
    },
-   "subtitle" : {
-      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-11-30 15:27:36 GMT"
+   "series" : [
+      {
+         "data" : [
+            {
+               "name" : "#001",
+               "drilldown" : "001",
+               "y" : 132
+            },
+            {
+               "name" : "#002",
+               "drilldown" : "002",
+               "y" : 104
+            },
+            {
+               "y" : 67,
+               "drilldown" : "003",
+               "name" : "#003"
+            },
+            {
+               "y" : 87,
+               "drilldown" : "004",
+               "name" : "#004"
+            },
+            {
+               "name" : "#005",
+               "y" : 67,
+               "drilldown" : "005"
+            },
+            {
+               "y" : 48,
+               "drilldown" : "006",
+               "name" : "#006"
+            },
+            {
+               "name" : "#007",
+               "drilldown" : "007",
+               "y" : 56
+            },
+            {
+               "drilldown" : "008",
+               "y" : 70,
+               "name" : "#008"
+            },
+            {
+               "name" : "#009",
+               "y" : 68,
+               "drilldown" : "009"
+            },
+            {
+               "y" : 60,
+               "drilldown" : "010",
+               "name" : "#010"
+            },
+            {
+               "name" : "#011",
+               "drilldown" : "011",
+               "y" : 79
+            },
+            {
+               "name" : "#012",
+               "drilldown" : "012",
+               "y" : 83
+            },
+            {
+               "name" : "#013",
+               "drilldown" : "013",
+               "y" : 76
+            },
+            {
+               "name" : "#014",
+               "y" : 96,
+               "drilldown" : "014"
+            },
+            {
+               "drilldown" : "015",
+               "y" : 93,
+               "name" : "#015"
+            },
+            {
+               "drilldown" : "016",
+               "y" : 66,
+               "name" : "#016"
+            },
+            {
+               "drilldown" : "017",
+               "y" : 79,
+               "name" : "#017"
+            },
+            {
+               "drilldown" : "018",
+               "y" : 76,
+               "name" : "#018"
+            },
+            {
+               "drilldown" : "019",
+               "y" : 95,
+               "name" : "#019"
+            },
+            {
+               "y" : 95,
+               "drilldown" : "020",
+               "name" : "#020"
+            },
+            {
+               "drilldown" : "021",
+               "y" : 67,
+               "name" : "#021"
+            },
+            {
+               "name" : "#022",
+               "drilldown" : "022",
+               "y" : 63
+            },
+            {
+               "drilldown" : "023",
+               "y" : 91,
+               "name" : "#023"
+            },
+            {
+               "drilldown" : "024",
+               "y" : 70,
+               "name" : "#024"
+            },
+            {
+               "y" : 55,
+               "drilldown" : "025",
+               "name" : "#025"
+            },
+            {
+               "drilldown" : "026",
+               "y" : 70,
+               "name" : "#026"
+            },
+            {
+               "y" : 58,
+               "drilldown" : "027",
+               "name" : "#027"
+            },
+            {
+               "drilldown" : "028",
+               "y" : 78,
+               "name" : "#028"
+            },
+            {
+               "name" : "#029",
+               "y" : 77,
+               "drilldown" : "029"
+            },
+            {
+               "y" : 115,
+               "drilldown" : "030",
+               "name" : "#030"
+            },
+            {
+               "drilldown" : "031",
+               "y" : 87,
+               "name" : "#031"
+            },
+            {
+               "name" : "#032",
+               "drilldown" : "032",
+               "y" : 92
+            },
+            {
+               "drilldown" : "033",
+               "y" : 108,
+               "name" : "#033"
+            },
+            {
+               "name" : "#034",
+               "y" : 59,
+               "drilldown" : "034"
+            },
+            {
+               "drilldown" : "035",
+               "y" : 59,
+               "name" : "#035"
+            },
+            {
+               "name" : "#036",
+               "y" : 36,
+               "drilldown" : "036"
+            }
+         ],
+         "colorByPoint" : "true",
+         "name" : "Perl Weekly Challenge Languages"
+      }
+   ],
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         }
+      }
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
+   "chart" : {
+      "type" : "column"
    },
    "drilldown" : {
       "series" : [
          {
             "name" : "001",
+            "id" : "001",
             "data" : [
                [
                   "Perl 5",
@@ -22,8 +228,7 @@
                   "Blog",
                   11
                ]
-            ],
-            "id" : "001"
+            ]
          },
          {
             "data" : [
@@ -44,6 +249,8 @@
             "name" : "002"
          },
          {
+            "name" : "003",
+            "id" : "003",
             "data" : [
                [
                   "Perl 5",
@@ -57,9 +264,7 @@
                   "Blog",
                   9
                ]
-            ],
-            "id" : "003",
-            "name" : "003"
+            ]
          },
          {
             "name" : "004",
@@ -80,6 +285,8 @@
             ]
          },
          {
+