- Added solutions by Ruben Westerberg.

14 files changed, 1021 insertions, 870 deletions

diff --git a/challenge-038/ruben-westerberg/perl5/ch-1.pl b/challenge-038/ruben-westerberg/perl5/ch-1.pl
new file mode 100755
index 0000000000..7723ce2c0a
--- /dev/null
+++ b/challenge-038/ruben-westerberg/perl5/ch-1.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my $d= qr(@{[join "|", map { sprintf "%02d", $_} 1..31]});
+my $m= qr(@{[join "|", map { sprintf "%02d", $_} 1..12]});
+
+for (@ARGV) {
+	if (/(1|2)([0-9]{2})($m)($d)/) {
+		print "Input $_ OK\n";
+		print(join("-",($1==1?"20$2":"19$2",$3,$4)),"\n");
+		next;
+	}
+	print "Input $_ invalid\n";
+}
diff --git a/challenge-038/ruben-westerberg/perl5/ch-2.pl b/challenge-038/ruben-westerberg/perl5/ch-2.pl
new file mode 100755
index 0000000000..16ddaa32dd
--- /dev/null
+++ b/challenge-038/ruben-westerberg/perl5/ch-2.pl
@@ -0,0 +1,65 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use List::Util;
+
+my @l=split "", "AGISUXZEJLRVYFDPWBNTOHMCKQ";
+my @c=(8,3,5,7,5,2,5,9,3,3,3,3,5,3,3,5,5,5,4,5,3,3,4,4,2,2);
+my @v=((1)x7, (2)x6,(3)x4,(4)x2,(5)x5,(10)x2);
+
+my %tileBag;	#Bag of all tiles
+my %values;	#Map of letter to value/score
+my %drawBag;	#Bag of7 tiles drawn
+
+
+#Build the bags and maps
+for (0..$#l) {
+	$tileBag{$l[$_]}=$c[$_];
+	$values{$l[$_]}=$v[$_];
+}
+
+#Draw the 7 tiles. Update bag with removed tile
+for (1..7) {
+	my $total= List::Util::sum(values %tileBag);
+	my $i=int rand($total);
+	my $t=0;
+	my $selected;
+	for ("A".."Z") {
+		$t+=$tileBag{$_};
+		if ($t>$i) {
+			$tileBag{$_}--;
+			$drawBag{$_}++;
+			last;
+		}
+	}
+}
+
+#Find all words which can be made from the drawn bag
+my %contenders=map {($_, List::Util::sum( @values{split ""}))} possibleWords();
+
+#Print sores of all possible words in asscending order
+my @sorted=sort { $contenders{$a} <=> $contenders{$b} } keys %contenders;
+print "Contenders (word: score):\n";
+print "$_: $contenders{$_}\n" for @sorted;
+print "\nTiles Drawn: ",join(", ", map({($_) x $drawBag{$_}} keys %drawBag)),"\n";
+
+
+#Helper sub to test known words against drawn tiles
+sub possibleWords {
+        open my $f, "<","../words_alpha.txt";
+        my @words= grep { chomp; length($_) <= 7} map {uc} <$f>;
+        grep { 	my %bag; 
+		for (split "") { 
+			$bag{$_}++
+		};
+		my $valid=1;
+		for (keys %bag) {
+			if (defined $drawBag{$_}) {
+				$valid&=($bag{$_}<=$drawBag{$_});
+				next;
+			}
+			$valid&=0;
+		}
+		$valid
+	} @words;
+}
diff --git a/challenge-038/ruben-westerberg/perl6/ch-1.p6 b/challenge-038/ruben-westerberg/perl6/ch-1.p6
new file mode 100755
index 0000000000..b601c651e4
--- /dev/null
+++ b/challenge-038/ruben-westerberg/perl6/ch-1.p6
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl6
+my $m=(1..12)>>.fmt("%02d").join("|");
+my $d=(1..31)>>.fmt("%02d").join("|");
+
+for @*ARGS {
+	if /(1|2)(<[0..9]>**2)(<$m>)(<$d>)/ { 
+		put "Input $_ OK";
+		put ($0==1??"20$1"!!"19$1",$2,$3).join("-");
+		next;
+	}
+	print "Input $_ invalid";
+}
+
diff --git a/challenge-038/ruben-westerberg/perl6/ch-2.p6 b/challenge-038/ruben-westerberg/perl6/ch-2.p6
new file mode 100755
index 0000000000..e7927c5d67
--- /dev/null
+++ b/challenge-038/ruben-westerberg/perl6/ch-2.p6
@@ -0,0 +1,39 @@
+#!/usr/bin/env perl6
+
+#Input data
+my @l=comb "", "AGISUXZEJLRVYFDPWBNTOHMCKQ";
+my @c=(8,3,5,7,5,2,5,9,3,3,3,3,5,3,3,5,5,5,4,5,3,3,4,4,2,2);
+my @v=((1) xx 7, (2) xx 6,(3) xx 4,(4) xx 2,(5) xx 5,(10) xx 2).flat;
+
+#Build bag and map structures
+my BagHash $tileBag.=new-from-pairs((@l Z @c).flat.pairup); #Bag of all tiles
+my %values=(@l Z @v).flat;	#Letter value map
+my BagHash $drawBag;		#Bag of drawn tiles
+
+#Draw the 7 tiles. Update bag with removed tile
+for 1..7 {
+	my $i=$tileBag.total.rand.Int;
+	my $t=0;
+	my $selected;
+	for "A".."Z" {
+		$t+=$tileBag{$_};
+		if $t > $i {
+			$tileBag{$_}--;
+			$drawBag{$_}++;
+			last;
+		}
+	}
+}
+
+#Find all words which can be made from the drawn bag
+"../words_alpha.txt".IO.lines.map({.uc}).grep({$_.chars <= 7}) ==>
+grep({ .comb.BagHash (<=) $drawBag; }) ==> 
+map({|($_, %values{.comb}.sum)})==>
+my %contenders;
+
+#Print sores of all possible words in asscending order
+my @sorted=%contenders.keys.sort({%contenders{$^a} <=> %contenders{$^b}});
+
+put "Contenders (word: score):";
+put "$_: %contenders{$_}" for @sorted;
+put "\nDrawn tiles: $drawBag";
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 04e8aae6f2..f8ff2375d5 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,8 +1,6 @@
 {
-   "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/>"
+   "subtitle" : {
+      "text" : "[Champions: 15] Last updated at 2019-12-15 03:07:17 GMT"
    },
    "drilldown" : {
       "series" : [
@@ -17,6 +15,8 @@
             "name" : "Andrezgz"
          },
          {
+            "id" : "Arne Sommer",
+            "name" : "Arne Sommer",
             "data" : [
                [
                   "Perl 6",
@@ -26,9 +26,7 @@
                   "Blog",
                   1
                ]
-            ],
-            "id" : "Arne Sommer",
-            "name" : "Arne Sommer"
+            ]
          },
          {
             "data" : [
@@ -37,12 +35,10 @@
                   2
                ]
             ],
-            "id" : "Daniel Mita",
-            "name" : "Daniel Mita"
+            "name" : "Daniel Mita",
+            "id" : "Daniel Mita"
          },
          {
-            "name" : "Dave Jacoby",
-            "id" : "Dave Jacoby",
             "data" : [
                [
                   "Perl 5",
@@ -52,21 +48,21 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "name" : "Dave Jacoby",
+            "id" : "Dave Jacoby"
          },
          {
+            "id" : "Duane Powell",
+            "name" : "Duane Powell",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ],
-            "id" : "Duane Powell",
-            "name" : "Duane Powell"
+            ]
          },
          {
-            "name" : "E. Choroba",
-            "id" : "E. Choroba",
             "data" : [
                [
                   "Perl 5",
@@ -76,7 +72,9 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "name" : "E. Choroba",
+            "id" : "E. Choroba"
          },
          {
             "data" : [
@@ -93,31 +91,32 @@
                   1
                ]
             ],
-            "id" : "Javier Luque",
-            "name" : "Javier Luque"
+            "name" : "Javier Luque",
+            "id" : "Javier Luque"
          },
          {
-            "id" : "Noud",
+            "name" : "Noud",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
             ],
-            "name" : "Noud"
+            "id" : "Noud"
          },
          {
-            "name" : "Pete Houston",
+            "id" : "Pete Houston",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
             ],
-            "id" : "Pete Houston"
+            "name" : "Pete Houston"
          },
          {
             "id" : "Roger Bell West",
+            "name" : "Roger Bell West",
             "data" : [
                [
                   "Perl 5",
@@ -127,11 +126,23 @@
                   "Perl 6",
                   2
                ]
-            ],
-            "name" : "Roger Bell West"
+            ]
+         },
+         {
+            "id" : "Ruben Westerberg",
+            "name" : "Ruben Westerberg",
+            "data" : [
+               [
+                  "Perl 5",
+                  2
+               ],
+               [
+                  "Perl 6",
+                  2
+               ]
+            ]
          },
          {
-            "name" : "Ryan Thompson",
             "data" : [
                [
                   "Perl 5",
@@ -142,11 +153,12 @@
                   2
                ]
             ],
+            "name" : "Ryan Thompson",
             "id" : "Ryan Thompson"
          },
          {
-            "name" : "Saif Ahmed",
             "id" : "Saif Ahmed",
+            "name" : "Saif Ahmed",
             "data" : [
                [
                   "Perl 5",
@@ -156,67 +168,43 @@
          },
          {
             "id" : "Simon Proctor",
+            "name" : "Simon Proctor",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
-            ],
-            "name" : "Simon Proctor"
+            ]
          },
          {
-            "id" : "Steven Wilson",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
             ],
-            "name" : "Steven Wilson"
+            "name" : "Steven Wilson",
+            "id" : "Steven Wilson"
          }
       ]
    },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         },
-         "borderWidth" : 0
-      }
-   },
-   "subtitle" : {
-      "text" : "[Champions: 14] Last updated at 2019-12-14 21:08:41 GMT"
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "legend" : {
-      "enabled" : 0
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
    "series" : [
       {
-         "colorByPoint" : 1,
          "data" : [
             {
+               "y" : 2,
                "name" : "Andrezgz",
-               "drilldown" : "Andrezgz",
-               "y" : 2
+               "drilldown" : "Andrezgz"
             },
             {
                "drilldown" : "Arne Sommer",
-               "y" : 3,
-               "name" : "Arne Sommer"
+               "name" : "Arne Sommer",
+               "y" : 3
             },
             {
-               "drilldown" : "Daniel Mita",
                "y" : 2,
-               "name" : "Daniel Mita"
+               "name" : "Daniel Mita",
+               "drilldown" : "Daniel Mita"
             },
             {
                "drilldown" : "Dave Jacoby",
@@ -224,63 +212,94 @@
                "name" : "Dave Jacoby"
             },
             {
-               "name" : "Duane Powell",
+               "drilldown" : "Duane Powell",
                "y" : 2,
-               "drilldown" : "Duane Powell"
+               "name" : "Duane Powell"
             },
             {
                "name" : "E. Choroba",
-               "drilldown" : "E. Choroba",
-               "y" : 3
+               "y" : 3,
+               "drilldown" : "E. Choroba"
             },
             {
                "name" : "Javier Luque",
-               "drilldown" : "Javier Luque",
-               "y" : 5
+               "y" : 5,
+               "drilldown" : "Javier Luque"
             },
             {
+               "y" : 2,
                "name" : "Noud",
-               "drilldown" : "Noud",
-               "y" : 2
+               "drilldown" : "Noud"
             },
             {
                "name" : "Pete Houston",
-               "drilldown" : "Pete Houston",
-               "y" : 1
+               "y" : 1,
+               "drilldown" : "Pete Houston"
             },
             {
-               "y" : 4,
                "drilldown" : "Roger Bell West",
+               "y" : 4,
                "name" : "Roger Bell West"
             },
             {
+               "name" : "Ruben Westerberg",
+               "y" : 4,
+               "drilldown" : "Ruben Westerberg"
+            },
+            {
                "name" : "Ryan Thompson",
                "y" : 4,
                "drilldown" : "Ryan Thompson"
             },
             {
-               "name" : "Saif Ahmed",
                "y" : 2,
+               "name" : "Saif Ahmed",
                "drilldown" : "Saif Ahmed"
             },
             {
+               "name" : "Simon Proctor",
                "y" : 2,
-               "drilldown" : "Simon Proctor",
-               "name" : "Simon Proctor"
+               "drilldown" : "Simon Proctor"
             },
             {
-               "y" : 1,
                "drilldown" : "Steven Wilson",
+               "y" : 1,
                "name" : "Steven Wilson"
             }
          ],
-         "name" : "Perl Weekly Challenge - 038"
+         "name" : "Perl Weekly Challenge - 038",
+         "colorByPoint" : 1
       }
    ],
+   "legend" : {
+      "enabled" : 0
+   },
    "xAxis" : {
       "type" : "category"
    },
    "title" : {
       "text" : "Perl Weekly Challenge - 038"
+   },
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         },
+         "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/>"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "chart" : {
+      "type" : "column"
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 4fd66b6561..feb0cc425b 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,19 +1,34 @@
 {
+   "subtitle" : {
+      "text" : "Last updated at 2019-12-15 03:07:29 GMT"
+   },
+   "xAxis" : {
+      "type" : "category",
+      "labels" : {
+         "style" : {
+            "fontFamily" : "Verdana, sans-serif",
+            "fontSize" : "13px"
+         }
+      }
+   },
+   "yAxis" : {
+      "min" : 0,
+      "title" : {
+         "text" : null
+      }
+   },
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge Contributions - 2019"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
    "series" : [
       {
          "name" : "Contributions",
-         "dataLabels" : {
-            "style" : {
-               "fontFamily" : "Verdana, sans-serif",
-               "fontSize" : "13px"
-            },
-            "enabled" : "true",
-            "format" : "{point.y:.0f}",
-            "color" : "#FFFFFF",
-            "rotation" : -90,
-            "align" : "right",
-            "y" : 10
-         },
          "data" : [
             [
                "Blog",
@@ -21,43 +36,28 @@
             ],
             [
                "Perl 5",
-               1565
+               1567
             ],
             [
                "Perl 6",
-               935
+               937
             ]
-         ]
-      }
-   ],
-   "legend" : {
-      "enabled" : "false"
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge Contributions - 2019"
-   },
-   "xAxis" : {
-      "type" : "category",
-      "labels" : {
-         "style" : {
-            "fontFamily" : "Verdana, sans-serif",
-            "fontSize" : "13px"
+         ],
+         "dataLabels" : {
+            "y" : 10,
+            "enabled" : "true",
+            "style" : {
+               "fontFamily" : "Verdana, sans-serif",
+               "fontSize" : "13px"
+            },
+            "format" : "{point.y:.0f}",
+            "rotation" : -90,
+            "align" : "right",
+            "color" : "#FFFFFF"
          }
       }
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2019-12-14 21:08:51 GMT"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : null
-      },
-      "min" : 0
-   },
+   ],
    "chart" : {
       "type" : "column"
-   },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
    }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 378a82a7be..28debe64dd 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,26 +1,24 @@
 {
-   "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"
-   },
-   "chart" : {
-      "type" : "column"
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-12-15 03:07:29 GMT"
    },
    "yAxis" : {
       "title" : {
          "text" : "Total Solutions"
       }
    },
-   "subtitle" : {
-      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-12-14 21:08:51 GMT"
-   },
    "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>"
+   },
    "drilldown" : {
       "series" : [
          {
+            "name" : "001",
             "data" : [
                [
                   "Perl 5",
@@ -35,10 +33,11 @@
                   11
                ]
             ],
-            "id" : "001",
-            "name" : "001"
+            "id" : "001"
          },
          {
+            "id" : "002",
+            "name" : "002",
             "data" : [
                [
                   "Perl 5",
@@ -52,12 +51,9 @@
                   "Blog",
                   9
                ]
-            ],
-            "id" : "002",
-            "name" : "002"
+            ]
          },
          {
-            "id" : "003",
             "data" : [
                [
                   "Perl 5",
@@ -72,9 +68,12 @@
                   9
                ]
             ],
-            "name" : "003"
+            "name" : "003",
+            "id" : "003"
          },
          {
+            "id" : "004",
+            "name" : "004",
             "data" : [
                [
                   "Perl 5",
@@ -88,11 +87,10 @@
                   "Blog",
                   10
                ]
-            ],
-            "id" : "004",
-            "name" : "004"
+            ]
          },
          {
+            "name" : "005",
             "data" : [
                [
                   "Perl 5",
@@ -107,10 +105,10 @@
                   12
                ]
             ],
-            "id" : "005",
-            "name" : "005"
+            "id" : "005"
          },
          {
+            "id" : "006",
             "name" : "006",
             "data" : [
                [
@@ -125,11 +123,10 @@
                   "Blog",
                   7
                ]
-            ],
-            "id" : "006"
+            ]
          },
          {
-            "name" : "007",
+            "id" : "007",
             "data" : [
                [
                   "Perl 5",
@@ -144,7 +141,7 @@
                   10
                ]
             ],
-            "id" : "007"
+            "name" : "007"
          },
          {
             "id" : "008",
@@ -165,7 +162,6 @@
             "name" : "008"
          },
          {
-            "id" : "009",
             "data" : [
                [
                   "Perl 5",
@@ -180,7 +176,8 @@
                   13
                ]
             ],
-            "name" : "009"
+            "name" : "009",
+            "id" : "009"
          },
          {
             "data" : [
@@ -197,11 +194,12 @@
                   11
                ]
             ],
-            "id" : "010",
-            "name" : "010"
+            "name" : "010",
+            "id" : "010"
          },
          {
             "id" : "011",
+            "name" : "011",
             "data" : [
                [
                   "Perl 5",
@@ -215,11 +213,9 @@
                   "Blog",
                   10
                ]
-            ],
-            "name" : "011"
+            ]
          },
          {
-            "id" : "012",
             "data" : [
                [
                   "Perl 5",
@@ -234,10 +230,10 @@
                   11
                ]
             ],
-            "name" : "012"
+            "name" : "012",
+            "id" : "012"
          },
          {
-            "id" : "013",
             "data" : [
                [
                   "Perl 5",
@@ -252,7 +248,8 @@
                   13
                ]
             ],
-            "name" : "013"
+            "name" : "013",
+            "id" : "013"
          },
          {
             "id" : "014",
@@ -287,8 +284,8 @@
                   15
                ]
             ],
-            "id" : "015",
-            "name" : "015"
+            "name" : "015",
+            "id" : "015"
          },
          {
             "id" : "016",
@@ -309,8 +306,8 @@
             "name" : "016"
          },
          {
-            "name" : "017",
             "id" : "017",
+            "name" : "017",
             "data" : [
                [
                   "Perl 5",
@@ -327,7 +324,7 @@
             ]
          },
          {
-            "id" : "018",
+            "name" : "018",
             "data" : [
                [
                   "Perl 5",
@@ -342,11 +339,10 @@
                   14
                ]
             ],
-            "name" : "018"
+            "id" : "018"
          },
          {
             "name" : "019",
-            "id" : "019",
             "data" : [
                [
                   "Perl 5",
@@ -360,11 +356,12 @@
                   "Blog",
                   13
                ]
-            ]
+            ],
+            "id" : "019"
          },
          {
-            "name" : "020",
             "id" : "020",
+            "name" : "020",
             "data" : [
                [
                   "Perl 5",
@@ -381,7 +378,6 @@
             ]
          },
          {
-            "id" : "021",
             "data" : [
                [
                   "Perl 5",
@@ -396,7 +392,8 @@
                   10
                ]
             ],
-            "name" : "021"
+            "name" : "021",
+            "id" : "021"
          },
          {
             "data" : [
@@ -413,8 +410,8 @@
                   10
                ]
             ],
-            "id" : "022",
-            "name" : "022"
+            "name" : "022",
+            "id" : "022"
          },
          {
             "name" : "023",
@@ -436,6 +433,7 @@
          },
          {
             "id" : "024",
+            "name" : "024",
             "data" : [
                [
                   "Perl 5",
@@ -449,12 +447,9 @@
                   "Blog",
                   11
                ]
-            ],
-            "name" : "024"
+            ]
          },
          {
-            "name" : "025",
-            "id" : "025",
             "data" : [
                [
                   "Perl 5",
@@ -468,10 +463,11 @@
                   "Blog",
                   12
                ]
-            ]
+            ],
+            "name" : "025",
+            "id" : "025"
          },
          {
-            "name" : "026",
             "id" : "026",
             "data" : [
                [
@@ -486,11 +482,10 @@
                   "Blog",
                   10
                ]
-            ]
+            ],
+            "name" : "026"
          },
          {
-            "name" : "027",
-            "id" : "027",
             "data" : [
                [
                   "Perl 5",
@@ -504,10 +499,12 @@
                   "Blog",
                   9
                ]
-            ]
+            ],
+            "name" : "027",
+            "id" : "027"
          },
          {
-            "id" : "028",
+            "name" : "028",
             "data" : [
                [
                   "Perl 5",
@@ -522,9 +519,10 @@
                   9
                ]
             ],
-            "name" : "028"
+            "id" : "028"
          },
          {
+            "id" : "029",
             "data" : [
                [
                   "Perl 5",
@@ -539,7 +537,6 @@
                   12
                ]
             ],
-            "id" : "029",
             "name" : "029"
          },
          {
@@ -561,6 +558,7 @@
             "id" : "030"
          },
          {
+            "name" : "031",
             "data" : [
                [
                   "Perl 5",
@@ -575,10 +573,10 @@
                   9
                ]
             ],
-            "id" : "031",
-            "name" : "031"
+            "id" : "031"
          },
          {
+            "id" : "032",
             "data" : [
                [
                   "Perl 5",
@@ -593,10 +591,11 @@
                   10
                ]
             ],
-            "id" : "032",
             "name" : "032"
          },
          {
+            "id" : "033",
+            "name" : "033",
             "data" : [
                [
                   "Perl 5",
@@ -610,11 +609,10 @@
                   "Blog",
                   10
                ]
-            ],
-            "id" : "033",
-            "name" : "033"
+            ]
          },
          {
+            "id" : "034",
             "data" : [
                [
                   "Perl 5",
@@ -629,11 +627,10 @@
                   11
                ]
             ],
-            "id" : "034",
             "name" : "034"
          },
          {
-            "id" : "035",
+            "name" : "035",
             "data" : [
                [
                   "Perl 5",
@@ -648,10 +645,10 @@
                   9
                ]
             ],
-            "name" : "035"
+            "id" : "035"
          },
          {
-            "name" : "036",
+            "id" : "036",
             "data" : [
                [
                   "Perl 5",
@@ -666,7 +663,7 @@
                   10
                ]
             ],
-            "id" : "036"
+            "name" : "036"
          },
          {
             "data" : [
@@ -683,50 +680,61 @@
                   7
                ]
             ],
-            "id" : "037",
-            "name" : "037"
+            "name" : "037",
+            "id" : "037"
          },
          {
+            "id" : "038",
             "name" : "038",
             "data" : [
                [
                   "Perl 5",
-                  19
+                  21
                ],
                [
                   "Perl 6",
-                  14
+                  16
                ],
                [
                   "Blog",
                   4
                ]
-            ],
-            "id" : "038"
+            ]
          }
       ]
    },
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "format" : "{point.y}",