- Added solutions by Kevin Colyer.

12 files changed, 1425 insertions, 1203 deletions

diff --git a/challenge-038/kevin-colyer/perl6/ch-1.p6 b/challenge-038/kevin-colyer/perl6/ch-1.p6
new file mode 100644
index 0000000000..0e4d9823ed
--- /dev/null
+++ b/challenge-038/kevin-colyer/perl6/ch-1.p6
@@ -0,0 +1,44 @@
+#!/usr/bin/perl6
+
+use v6;
+
+use Test;
+
+=begin pod
+
+Task 38.1
+
+Date Finder
+Create a script to accept a 7 digits number, where the first number can only be 1 or 2. The second and third digits can be anything 0-9. The fourth and fifth digits corresponds to the month i.e. 01,02,03…,11,12. And the last 2 digits respresents the days in the month i.e. 01,02,03….29,30,31. Your script should validate if the given number is valid as per the rule and then convert into human readable format date.
+
+RULES
+1) If 1st digit is 1, then prepend 20 otherwise 19 to the 2nd and 3rd digits to make it 4-digits year.
+
+2) The 4th and 5th digits together should be a valid month.
+
+3) The 6th and 7th digits together should be a valid day for the above month.
+
+For example, the given number is 2230120, it should print 1923-01-20.
+
+=end pod
+
+is   validate(2230120), "1923-01-20", "Example given";
+is   validate(1230120), "2023-01-20", "Example";
+like validate(2230229), /'Day out of range'/,"not a Leap year";
+like validate(2230631), /'Day out of range'/,"only 30 days in june";
+like validate(2231330), /'Month out of range'/,"only 12 months";
+like validate(22313301),/'Input must be only 7'/,"only 7 digits";
+done-testing;
+
+sub validate($d where *>0) {
+    my $s=$d.Str;
+    return "Input must be only 7 digits in length" if $d.chars!==7;
+    my ($day,$month,$year,$mill) = $d.polymod(100,100,100);
+    return "First digit must be either 1 or 2" if 0 > $mill > 2;
+    $year+=$mill==1 ?? 2000 !! 1900 ;
+    my $date;
+    try     { $date = DateTime.new(year => $year, month => $month, day => $day);
+        CATCH   { return .Str }
+    };
+    return $date.Date;
+}
diff --git a/challenge-038/kevin-colyer/perl6/ch-2.p6 b/challenge-038/kevin-colyer/perl6/ch-2.p6
new file mode 100644
index 0000000000..a170979826
--- /dev/null
+++ b/challenge-038/kevin-colyer/perl6/ch-2.p6
@@ -0,0 +1,163 @@
+#!/usr/bin/perl6
+use v6;
+
+use Test;
+
+=begin pod
+
+Task 38.2
+
+Word Game
+Lets assume we have tiles as listed below, with an alphabet (A..Z) printed on them. Each tile has a value, e.g. A (1 point), B (4 points) etc. You are allowed to draw 7 tiles from the lot randomly. Then try to form a word using the 7 tiles with maximum points altogether. You don’t have to use all the 7 tiles to make a word. You should try to use as many tiles as possible to get the maximum points.
+
+For example, A (x8) means there are 8 tiles with letter A.
+
+...
+
+=end pod
+
+my %points;
+%points<A G I S U X Z>= 1 xx * ;
+%points<E J L R V Y>  = 2 xx * ;
+%points<F D P W>      = 3 xx * ;
+%points<B N>          = 4 xx * ;
+%points<T O H M C>    = 5 xx * ;
+%points<K Q>          = 10 xx * ;
+
+
+my %tilebag is BagHash =
+    :A(8), :G(3), :I(5), :S(7), :U(5), :X(2), :Z(5),
+    :E(9), :J(3), :L(3), :R(3), :V(3), :Y(5),
+    :F(3), :D(3), :P(5), :W(5),
+    :B(5), :N(4),
+    :T(5), :O(3), :H(3), :M(4), :C(4),
+    :K(2), :Q(2),
+;
+
+
+my %wordlist;
+# change to use a better dictionary - system directory is not a great one!
+my $dict="/usr/share/dict/words";
+
+my $cache="myWordList.txt";
+if $cache.IO.e == False {
+
+    say "Processessing wordlist and caching...";
+    say "  Slurping...";
+    # slurp in dictionary, split on lines, filter any comments (other dictionarys may have them)
+    # trim by using .words (just in case), filter to length we want and remove punctuation and Acented words
+    my @words=slurp($dict).uc.lines.grep( * !~~ /^ '#' / ).words.grep( *.chars <= 7 ).grep( * !~~ / <-[A..Z]> / );
+    say "  Pre-computing...";
+    for @words {
+        %wordlist{$_.comb.sort.join} = [scoreTiles( $_.comb ), $_];
+    }
+    say "  Spurting {%wordlist.elems} words...";
+    $cache.IO.spurt(%wordlist);
+
+} else {
+
+    say "Loading cached wordlist...";
+    for $cache.IO.slurp.lines.words -> $a, $b, $c {
+        %wordlist{$a}= [$b,$c];
+    }
+    say "  Loaded {%wordlist.elems} words.";
+
+}
+
+sub drawTiles ($num is copy = 7) {
+    my @tiles;
+    while $num>0 and %tilebag.total>0 {
+        my $t=%tilebag.roll;
+        %tilebag{$t}--;
+        @tiles.push: $t;
+        $num--;
+    }
+    return @tiles;
+}
+
+sub scoreTiles (@cand) {
+    [+] (%points{$_} for @cand);
+}
+
+# create all combinations of words, check if exist and score
+# note .combinations does not every anagrams so sort and compare with pre-sorted dictionary to find a word
+sub makeWords(@tiles) {
+    my @result = "", 0;
+    for @tiles.combinations -> @cand {
+        next if @cand.elems < 2;
+        my $cand=@cand.sort.join;
+        next unless %wordlist{$cand}:exists;
+        my ($s,$w)= %wordlist{$cand};
+        if $s > @result[1] and $cand.chars => @result[0].chars {
+            @result[0,1]=$w,$s;
+        };
+    }
+    return @result;
+}
+
+sub removeTiles(@hand is copy,@tiles) {
+    my $i;
+    for @tiles -> $t {
+        $i = @hand.first: * eq $t, :k;
+        @hand.splice( $i, 1 );
+    }
+    return @hand;
+}
+
+#####################################################
+
+#| Tests
+multi MAIN('test') {
+    is makeWords(<G C N E S Z L>),("CENS",12),"test"; # will depend on how good your dictionary is...
+    is removeTiles(<K E V I N>, <N I>), <K E V>,"test removeTiles";
+    is removeTiles(<K E V I N>, <K I>), <E V N>,"test removeTiles";
+    is removeTiles(<K E V I N>, <K E V I N>), (),"test removeTiles";
+    done-testing;
+}
+
+#| Draw tiles and make a word
+multi MAIN() {
+    my @hand=drawTiles;
+    say @hand ~ " gives " ~ makeWords(@hand).gist;
+}
+
+#| Suggest a set of seven letters to solve eg suggest lemons
+multi MAIN('suggest', Str $tiles) {
+    my $t=$tiles.words.uc;
+    die "Only 7 letters please" if $t.chars>7;
+    my $start=now;
+    my @answer=makeWords($t.comb);
+    my $elapsed=now - $start;
+    if @answer[1]>0 {
+        say "Using [$t] the best word to make is [{@answer[0]}] scoring {@answer[1]} points in $elapsed seconds";
+    } else {
+        say "I can't make any words from [$t] ($elapsed seconds)";
+    }
+}
+
+#| Start by selecting tiles and make words for as long as possible
+multi MAIN('play') {
+     my @hand;
+     my $total;
+     loop {
+        my @next=drawTiles(7-@hand.elems);
+        # no more tiles...
+        if @next==0 {
+            say "Run out of tiles!";
+            last;
+        };
+        @hand.append: @next;
+        @hand=@hand.sort;
+
+        my ($w,$s) = makeWords(@hand);
+        # no possible score...
+        if $s==0 { #last
+            say "Can't make a word from {@hand.sort.gist}";
+            last;
+        };
+
+        $total+=$s;
+        say "{@hand.gist} => '$w' scoring $s (total: $total)";
+        @hand=removeTiles(@hand,$w.comb);
+     }
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 5ab5efcfba..1b24bbe9bf 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,32 +1,33 @@
 {
-   "xAxis" : {
-      "type" : "category"
+   "chart" : {
+      "type" : "column"
    },
    "title" : {
       "text" : "Perl Weekly Challenge - 038"
    },
    "series" : [
       {
+         "name" : "Perl Weekly Challenge - 038",
          "data" : [
             {
                "drilldown" : "Andrezgz",
-               "y" : 2,
-               "name" : "Andrezgz"
+               "name" : "Andrezgz",
+               "y" : 2
             },
             {
-               "drilldown" : "Arne Sommer",
                "y" : 3,
-               "name" : "Arne Sommer"
+               "name" : "Arne Sommer",
+               "drilldown" : "Arne Sommer"
             },
             {
                "name" : "Daniel Mita",
-               "y" : 2,
-               "drilldown" : "Daniel Mita"
+               "drilldown" : "Daniel Mita",
+               "y" : 2
             },
             {
                "name" : "Dave Jacoby",
-               "y" : 3,
-               "drilldown" : "Dave Jacoby"
+               "drilldown" : "Dave Jacoby",
+               "y" : 3
             },
             {
                "y" : 2,
@@ -34,9 +35,9 @@
                "drilldown" : "Duane Powell"
             },
             {
-               "name" : "E. Choroba",
                "y" : 3,
-               "drilldown" : "E. Choroba"
+               "drilldown" : "E. Choroba",
+               "name" : "E. Choroba"
             },
             {
                "drilldown" : "Javier Luque",
@@ -44,24 +45,29 @@
                "y" : 5
             },
             {
-               "drilldown" : "Noud",
+               "y" : 2,
+               "drilldown" : "Kevin Colyer",
+               "name" : "Kevin Colyer"
+            },
+            {
                "name" : "Noud",
+               "drilldown" : "Noud",
                "y" : 2
             },
             {
                "y" : 1,
-               "name" : "Pete Houston",
-               "drilldown" : "Pete Houston"
+               "drilldown" : "Pete Houston",
+               "name" : "Pete Houston"
             },
             {
-               "name" : "Roger Bell West",
                "y" : 4,
-               "drilldown" : "Roger Bell West"
+               "drilldown" : "Roger Bell West",
+               "name" : "Roger Bell West"
             },
             {
-               "y" : 4,
+               "drilldown" : "Ruben Westerberg",
                "name" : "Ruben Westerberg",
-               "drilldown" : "Ruben Westerberg"
+               "y" : 4
             },
             {
                "drilldown" : "Ryan Thompson",
@@ -69,62 +75,42 @@
                "y" : 4
             },
             {
+               "y" : 2,
                "drilldown" : "Saif Ahmed",
-               "name" : "Saif Ahmed",
-               "y" : 2
+               "name" : "Saif Ahmed"
             },
             {
-               "drilldown" : "Simon Proctor",
                "y" : 2,
+               "drilldown" : "Simon Proctor",
                "name" : "Simon Proctor"
             },
             {
-               "name" : "Steven Wilson",
                "y" : 1,
-               "drilldown" : "Steven Wilson"
+               "drilldown" : "Steven Wilson",
+               "name" : "Steven Wilson"
             }
          ],
-         "name" : "Perl Weekly Challenge - 038",
          "colorByPoint" : 1
       }
    ],
-   "legend" : {
-      "enabled" : 0
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "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/>"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 15] Last updated at 2019-12-15 03:44:08 GMT"
-   },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         },
-         "borderWidth" : 0
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
       }
    },
    "drilldown" : {
       "series" : [
          {
+            "name" : "Andrezgz",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "name" : "Andrezgz",
             "id" : "Andrezgz"
          },
          {
-            "name" : "Arne Sommer",
             "data" : [
                [
                   "Perl 6",
@@ -135,21 +121,21 @@
                   1
                ]
             ],
+            "name" : "Arne Sommer",
             "id" : "Arne Sommer"
          },
          {
-            "name" : "Daniel Mita",
+            "id" : "Daniel Mita",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
             ],
-            "id" : "Daniel Mita"
+            "name" : "Daniel Mita"
          },
          {
             "id" : "Dave Jacoby",
-            "name" : "Dave Jacoby",
             "data" : [
                [
                   "Perl 5",
@@ -159,17 +145,18 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "name" : "Dave Jacoby"
          },
          {
-            "id" : "Duane Powell",
-            "name" : "Duane Powell",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "name" : "Duane Powell",
+            "id" : "Duane Powell"
          },
          {
             "id" : "E. Choroba",
@@ -186,7 +173,7 @@
             "name" : "E. Choroba"
          },
          {
-            "name" : "Javier Luque",
+            "id" : "Javier Luque",
             "data" : [
                [
                   "Perl 5",
@@ -201,30 +188,39 @@
                   1
                ]
             ],
-            "id" : "Javier Luque"
+            "name" : "Javier Luque"
          },
          {
-            "name" : "Noud",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
             ],
-            "id" : "Noud"
+            "name" : "Kevin Colyer",
+            "id" : "Kevin Colyer"
          },
          {
+            "id" : "Noud",
+            "data" : [
+               [
+                  "Perl 6",
+                  2
+               ]
+            ],
+            "name" : "Noud"
+         },
+         {
+            "id" : "Pete Houston",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
             ],
-            "name" : "Pete Houston",
-            "id" : "Pete Houston"
+            "name" : "Pete Houston"
          },
          {
-            "id" : "Roger Bell West",
             "name" : "Roger Bell West",
             "data" : [
                [
@@ -235,9 +231,11 @@
                   "Perl 6",
                   2
                ]
-            ]
+            ],
+            "id" : "Roger Bell West"
          },
          {
+            "name" : "Ruben Westerberg",
             "data" : [
                [
                   "Perl 5",
@@ -248,11 +246,9 @@
                   2
                ]
             ],
-            "name" : "Ruben Westerberg",
             "id" : "Ruben Westerberg"
          },
          {
-            "name" : "Ryan Thompson",
             "data" : [
                [
                   "Perl 5",
@@ -263,43 +259,62 @@
                   2
                ]
             ],
+            "name" : "Ryan Thompson",
             "id" : "Ryan Thompson"
          },
          {
-            "name" : "Saif Ahmed",
+            "id" : "Saif Ahmed",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "id" : "Saif Ahmed"
+            "name" : "Saif Ahmed"
          },
          {
-            "name" : "Simon Proctor",
+            "id" : "Simon Proctor",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
             ],
-            "id" : "Simon Proctor"
+            "name" : "Simon Proctor"
          },
          {
+            "name" : "Steven Wilson",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
             ],
-            "name" : "Steven Wilson",
             "id" : "Steven Wilson"
          }
       ]
    },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
+   "xAxis" : {
+      "type" : "category"
+   },
+   "legend" : {
+      "enabled" : 0
+   },
+   "subtitle" : {
+      "text" : "[Champions: 16] Last updated at 2019-12-15 14:54:00 GMT"
+   },
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         },
+         "borderWidth" : 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/>"
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 6e7ac18407..b3da4390da 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,12 +1,6 @@
 {
-   "title" : {
-      "text" : "Perl Weekly Challenge Contributions - 2019"
-   },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
-   },
-   "chart" : {
-      "type" : "column"
+   "subtitle" : {
+      "text" : "Last updated at 2019-12-15 14:54:10 GMT"
    },
    "yAxis" : {
       "title" : {
@@ -14,24 +8,23 @@
       },
       "min" : 0
    },
-   "xAxis" : {
-      "labels" : {
-         "style" : {
-            "fontSize" : "13px",
-            "fontFamily" : "Verdana, sans-serif"
-         }
-      },
-      "type" : "category"
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2019-12-15 03:44:13 GMT"
-   },
-   "legend" : {
-      "enabled" : "false"
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
    },
    "series" : [
       {
-         "name" : "Contributions",
+         "dataLabels" : {
+            "y" : 10,
+            "rotation" : -90,
+            "align" : "right",
+            "format" : "{point.y:.0f}",
+            "color" : "#FFFFFF",
+            "style" : {
+               "fontFamily" : "Verdana, sans-serif",
+               "fontSize" : "13px"
+            },
+            "enabled" : "true"
+         },
          "data" : [
             [
                "Blog",
@@ -43,21 +36,28 @@
             ],
             [
                "Perl 6",
-               939
+               941
             ]
          ],
-         "dataLabels" : {
-            "rotation" : -90,
-            "format" : "{point.y:.0f}",
-            "enabled" : "true",
-            "style" : {
-               "fontFamily" : "Verdana, sans-serif",
-               "fontSize" : "13px"
-            },
-            "color" : "#FFFFFF",
-            "align" : "right",
-            "y" : 10
-         }
+         "name" : "Contributions"
       }
-   ]
+   ],
+   "chart" : {
+      "type" : "column"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
+   "xAxis" : {
+      "labels" : {
+         "style" : {
+            "fontFamily" : "Verdana, sans-serif",
+            "fontSize" : "13px"
+         }
+      },
+      "type" : "category"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge Contributions - 2019"
+   }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 35a120f5b5..ad8801ff5d 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,24 +1,239 @@
 {
+   "title" : {
+      "text" : "Perl Weekly Challenge Language"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
+   "chart" : {
+      "type" : "column"
+   },
    "tooltip" : {
-      "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
       "followPointer" : "true",
+      "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
       "headerFormat" : "<span style=\"font-size:11px\"></span>"
    },
-   "chart" : {
-      "type" : "column"
+   "series" : [
+      {
+         "name" : "Perl Weekly Challenge Languages",
+         "colorByPoint" : "true",
+         "data" : [
+            {
+               "name" : "#001",
+               "y" : 136,
+               "drilldown" : "001"
+            },
+            {
+               "drilldown" : "002",
+               "y" : 104,
+               "name" : "#002"
+            },
+            {
+               "y" : 67,
+               "drilldown" : "003",
+               "name" : "#003"
+            },
+            {
+               "y" : 87,
+               "drilldown" : "004",
+               "name" : "#004"
+            },
+            {
+               "name" : "#005",
+               "drilldown" : "005",
+               "y" : 67
+            },
+            {
+               "name" : "#006",
+               "drilldown" : "006",
+               "y" : 48
+            },
+            {
+               "y" : 56,
+               "drilldown" : "007",
+               "name" : "#007"
+            },
+            {
+               "name" : "#008",
+               "y" : 70,
+               "drilldown" : "008"
+            },
+            {
+               "drilldown" : "009",
+               "y" : 68,
+               "name" : "#009"
+            },
+            {
+               "y" : 60,
+               "drilldown" : "010",
+               "name" : "#010"
+            },
+            {
+               "name" : "#011",
+               "y" : 79,
+               "drilldown" : "011"
+            },
+            {
+               "name" : "#012",
+               "drilldown" : "012",
+               "y" : 83
+            },
+            {
+               "name" : "#013",
+               "drilldown" : "013",
+               "y" : 76
+            },
+            {
+               "y" : 96,
+               "drilldown" : "014",
+               "name" : "#014"
+            },
+            {
+               "name" : "#015",
+               "drilldown" : "015",
+               "y" : 93
+            },
+            {
+               "y" : 66,
+               "drilldown" : "016",
+               "name" : "#016"
+            },
+            {
+               "drilldown" : "017",
+               "y" : 79,
+               "name" : "#017"
+            },
+            {
+               "name" : "#018",
+               "y" : 76,
+               "drilldown" : "018"
+            },
+            {
+               "y" : 95,
+               "drilldown" : "019",
+               "name" : "#019"
+            },
+            {
+               "y" : 95,
+               "drilldown" : "020",
+               "name" : "#020"
+            },
+            {
+               "name" : "#021",
+               "y" : 67,
+               "drilldown" : "021"
+            },
+            {
+               "drilldown" : "022",
+               "y" : 63,
+               "name" : "#022"
+            },
+            {
+               "y" : 91,
+               "drilldown" : "023",
+               "name" : "#023"
+            },
+            {
+               "name" : "#024",
+               "y" : 70,
+               "drilldown" : "024"
+            },
+            {
+               "name" : "#025",
+               "drilldown" : "025",
+               "y" : 55
+            },
+            {
+               "y" : 70,
+               "drilldown" : "026",
+               "name" : "#026"
+            },
+            {
+               "y" : 58,
+               "drilldown" : "027",
+               "name" : "#027"
+            },
+            {
+               "y" : 78,
+               "drilldown" : "028",
+               "name" : "#028"
+            },
+            {
+               "y" : 77,
+               "drilldown" : "029",
+               "name" : "#029"
+            },
+            {
+               "y" : 115,
+               "drilldown" : "030",
+               "name" : "#030"
+            },
+            {
+               "y" : 87,
+               "drilldown" : "031",
+               "name" : "#031"
+            },
+            {
+               "name" : "#032",
+               "y" : 92,
+               "drilldown" : "032"
+            },
+            {
+               "y" : 108,
+               "drilldown" : "033",
+               "name" : "#033"
+            },
+            {
+               "name" : "#034",
+               "y" : 60,
+               "drilldown" : "034"
+            },
+            {
+               "y" : 60,
+               "drilldown" : "035",
+               "name" : "#035"
+            },
+            {
+               "name" : "#036",
+               "y" : 61,
+               "drilldown" : "036"
+            },
+            {
+               "name" : "#037",
+               "drilldown" : "037",
+               "y" : 61
+            },
+            {
+               "drilldown" : "038",
+               "y" : 43,
+               "name" : "#038"
+            }
+         ]
+      }
+   ],
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         },
+         "borderWidth" : 0
+      }
    },
    "yAxis" : {
       "title" : {
          "text" : "Total Solutions"
       }
    },
-   "title" : {
-      "text" : "Perl Weekly Challenge Language"
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-12-15 14:54:10 GMT"
    },
    "drilldown" : {
       "series" : [
          {
-            "name" : "001",
             "data" : [
                [
                   "Perl 5",
@@ -33,9 +248,11 @@
                   11
                ]
             ],
-            "id" : "001"
+            "id" : "001",
+            "name" : "001"
          },
          {
+            "name" : "002",
             "data" : [
                [
                   "Perl 5",
@@ -50,10 +267,11 @@
                   9
                ]
             ],
-            "name" : "002",
             "id" : "002"
          },
          {
+            "name" : "003",
+            "id" : "003",
             "data" : [
                [
                   "Perl 5",
@@ -67,12 +285,10 @@
                   "Blog",
                   9
                ]
-            ],
-            "name" : "003",
-            "id" : "003"
+            ]
          },
          {
-            "name" : "004",
+            "id" : "004",
             "data" : [
                [
                   "Perl 5",
@@ -87,10 +303,9 @@
                   10
                ]
             ],
-            "id" : "004"
+            "name" : "004"
          },
          {
-            "id" : "005",
             "name" : "005",
             "data" : [
                [
@@ -105,11 +320,10 @@
                   "Blog",
                   12
                ]
-            ]
+            ],
+            "id" : "005"
          },
          {
-            "id" : "006",
-            "name" : "006",
             "data" : [
                [
                   "Perl 5",
@@ -123,7 +337,9 @@
                   "Blog",
                   7
                ]
-            ]
+            ],
+            "id" : "006",
+            "name" : "006"
          },
          {
             "name" : "007",
@@ -144,7 +360,6 @@
             "id" : "007"
          },
          {
-            "name" : "008",
             "data" : [
                [
                   "Perl 5",
@@ -159,9 +374,11 @@
                   12
                ]
             ],
-            "id" : "008"
+            "id" : "008",
+            "name" : "008"
          },
          {
+            "id" : "009",
             "data" : [
                [
                   "Perl 5",
@@ -176,11 +393,9 @@
                   13
                ]
             ],
-            "name" : "009",
-            "id" : "009"
+            "name" : "009"
          },
          {
-            "name" : "010",
             "data" : [
                [
                   "Perl 5",
@@ -195,10 +410,10 @@
                   11
                ]
             ],
-            "id" : "010"
+            "id" : "010",
+            "name" : "010"
          },
          {
-            "id" : "011",
             "name" : "011",
             "data" : [
                [
@@ -213,11 +428,12 @@
                   "Blog",
                   10
                ]
-            ]
+            ],
+            "id" : "011"
          },
          {
-            "id" : "012",
             "name" : "012",
+            "id" : "012",
             "data" : [
                [
                   "Perl 5",
@@ -234,6 +450,7 @@
             ]
          },
          {
+            "name" : "013",
             "data" : [
                [
                   "Perl 5",
@@ -248,11 +465,10 @@
                   13
                ]
             ],
-            "name" : "013",
             "id" : "013"
          },
          {