Merge branch 'master' of github.com:manwar/perlweeklychallenge-club into challenges

21 files changed, 1785 insertions, 1662 deletions

diff --git a/challenge-138/e-choroba/perl/ch-1.pl b/challenge-138/e-choroba/perl/ch-1.pl
new file mode 100755
index 0000000000..f17e160f7f
--- /dev/null
+++ b/challenge-138/e-choroba/perl/ch-1.pl
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use feature qw{ say };
+
+use Time::Piece;
+use Time::Seconds qw{ ONE_DAY };
+
+sub workdays_slow {
+    my ($year) = @_;
+    my $d = 'Time::Piece'->strptime("$year-0101", '%Y-%m%d');
+    my $count = 0;
+    while ($d->year == $year) {
+        my $wday = $d->wday;
+        ++$count if $wday > 1 && $wday < 7;
+        $d += ONE_DAY;
+    }
+    return $count
+}
+
+sub workdays_fast {
+    my ($year) = @_;
+    my $tp = 'Time::Piece'->strptime("$year-0101", '%Y-%m%d');
+    my $wday = $tp->wday;
+    my $leap = $tp->is_leap_year;
+
+    return 260 if $wday == 7 || $wday == 1 && ! $leap;
+    return 262 if $leap && $wday > 1 && $wday < 6;
+    return 261
+}
+
+use Test2::V0;
+
+is workdays_fast(2021), 261, 'Example 1';
+is workdays_fast(2020), 262, 'Example 2';
+
+
+for my $year (1900 .. 2100) {
+    is workdays_slow($year), workdays_fast($year), "same $year";
+}
+done_testing();
+
+use Benchmark qw{ cmpthese };
+cmpthese(-3, {
+    slow => 'workdays_slow(1900 + int rand 1000)',
+    fast => 'workdays_fast(1900 + int rand 1000)',
+});
diff --git a/challenge-138/e-choroba/perl/ch-2.pl b/challenge-138/e-choroba/perl/ch-2.pl
new file mode 100755
index 0000000000..c48f2fde1d
--- /dev/null
+++ b/challenge-138/e-choroba/perl/ch-2.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+sub _split {
+    my ($sum, $part) = @_;
+    return 1 if $sum == $part;
+
+    for my $length (1 .. length($part) - 1) {
+        my $prefix = substr $part, 0, $length;
+        return 1 if _split($sum - $prefix, substr $part, $length)
+    }
+    return 0
+}
+
+sub split_number {
+    my ($square) = @_;
+    return _split(sqrt $square, $square)
+}
+
+use Test2::V0;
+plan 3;
+
+is split_number(81), 1, 'Example 1';
+is split_number(9801), 1, 'Example 2';
+is split_number(36), 0, 'Example 3';
diff --git a/challenge-138/james-smith/README.md b/challenge-138/james-smith/README.md
index 33c1c426f1..fa191ce639 100644
--- a/challenge-138/james-smith/README.md
+++ b/challenge-138/james-smith/README.md
@@ -40,26 +40,25 @@ We can then use a look up table which stores the number of working days (over 26
 
 We break this calculation into 3 functions:
 
- * `workdays` - this does the look up
- * `ly`       - tests for leap year
- * `zf`       - uses Zeller's formulae to work out first day of the year {works for the Gregorian calendar}
+ * `work_days` - this does the look up
+ * `leap_year` - tests for leap year
+ * `zellers_congruence_jan_1` - uses Zeller's congruence to work out first day of the year {works for the Gregorian calendar}
 
 All of which 
 ```perl
-my @EXTRA = ( [0,1,1,1,1,1,0], [1,2,2,2,2,1,0] );
+my @EXTRA_WORKDAYS = ( [0,1,1,1,1,1,0], [1,2,2,2,2,1,0] );
 
-sub workdays {
-  260 + $EXTRA[ ly($_[0]) ][ zf($_[0]) ];
+sub leap_year {
+  $_[0]&3 || (!($_[0]%100) && $_[0]%400) ? 0 : 1;
 }
-
-sub ly {
-  $_[0]%4 || (!($_[0]%100) && $_[0]%400) ? 0 : 1;
+sub zellers_congruence_jan_1 {
+  ( 1 + $_[0]%100 + ($_[0]%100>>2) - ($_[0]/100<<1) + ($_[0]/400>>0) ) % 7;
 }
 
-sub zf {
-  my $y = $_[0]-1;
-  ( 1 + $y%100 + ($y%100>>2) + ($y/400<<0) - ($y/100<<1) )%7;
+sub work_days {
+  260 + $EXTRA_WORKDAYS[ leap_year $_[0] ][ zellers_congruence_jan_1 $_[0] - 1 ];
 }
+
 ```
 
 # Task 2 - Split Number
@@ -87,15 +86,17 @@ It takes 2 parameters - the sum required add a string of digits. We call the fun
 
 ```perl
 sub check_square {
-  return 0 if $_[0]<=1;
-  return split_no( sqrt($_[0]), $_[0] );
+  return $_[0] <= 1 ? 0 : split_no( sqrt($_[0]), $_[0] );
 }
 
 sub split_no {
   my( $sum, $str ) = @_;
-  return $sum ? 0 : 1 if $str eq '';
-  return 0            if $sum < 0;
-  return 1            if grep { split_no( ($sum - substr $str,$_) , substr $str, 0, $_ ) } 0 .. -1 + length $str;
+  return 0 if $sum < 0;
+  return 0 if $str eq '' && $sum;
+  return 1 if $str eq '';
+  return 1 if grep { split_no( ($sum - substr $str,$_) , substr $str, 0, $_ ) }
+              0 .. -1 + length $str;
   return 0;
 }
+
 ```
diff --git a/challenge-138/james-smith/perl/ch-1.pl b/challenge-138/james-smith/perl/ch-1.pl
index 6f6fdd0979..82d1ad9fe8 100644
--- a/challenge-138/james-smith/perl/ch-1.pl
+++ b/challenge-138/james-smith/perl/ch-1.pl
@@ -8,27 +8,26 @@ use Test::More;
 use Benchmark qw(cmpthese timethis);
 use Data::Dumper qw(Dumper);
 
-my @EXTRA = ( [qw(0 1 1 1 1 1 0)], [qw(1 2 2 2 2 1 0)] );
+my @EXTRA_WORKDAYS = ( [qw(0 1 1 1 1 1 0)], [qw(1 2 2 2 2 1 0)] );
 my @TESTS = (
   [ 2021, 261 ],
   [ 2020, 262 ],
 );
 
-is( workdays($_->[0]), $_->[1] ) foreach @TESTS;
+is( work_days($_->[0]), $_->[1] ) foreach @TESTS;
 
 done_testing();
 
 #say $_, ' ', ly($_), ' ', zf($_), ' ', workdays($_) foreach 1900..2100;
 
-sub workdays {
-  260 + $EXTRA[ ly($_[0]) ][ zf($_[0]) ];
+sub leap_year {
+  $_[0]&3 || (!($_[0]%100) && $_[0]%400) ? 0 : 1;
 }
-
-sub ly {
-  $_[0]%4 || (!($_[0]%100) && $_[0]%400) ? 0 : 1;
+sub zellers_congruence_jan_1 {
+  ( 1 + $_[0]%100 + ($_[0]%100>>2) - ($_[0]/100<<1) + ($_[0]/400>>0) ) % 7;
 }
 
-sub zf {
-  ( 1 + (my$y=$_[0]-1)%100 + ($y%100>>2) + ($y/400<<0) - ($y/100<<1) )%7;
+sub work_days {
+  260 + $EXTRA_WORKDAYS[ leap_year $_[0] ][ zellers_congruence_jan_1 $_[0]-1 ];
 }
 
diff --git a/challenge-138/james-smith/perl/ch-2.pl b/challenge-138/james-smith/perl/ch-2.pl
index e1b04c63e7..44d447b321 100644
--- a/challenge-138/james-smith/perl/ch-2.pl
+++ b/challenge-138/james-smith/perl/ch-2.pl
@@ -19,14 +19,16 @@ is( check_square($_->[0]), $_->[1] ) foreach @TESTS;
 done_testing();
 
 sub check_square {
-  return split_no( sqrt($_[0]), $_[0], 0 );
+  $_[0] <= 1 ? 0 : split_no( sqrt($_[0]), $_[0], 0 );
 }
 
 sub split_no {
   my( $sum, $str ) = @_;
-  return $sum?0:1 if $str eq '';
-  return 0 if $sum<0;
-  return 1 if grep { split_no( ($sum - substr $str,$_) , substr $str, 0, $_ ) } 0 .. -1 + length $str;
+  return 0 if $sum < 0;
+  return 0 if $str eq '' && $sum;
+  return 1 if $str eq '';
+  return 1 if grep { split_no( ($sum - substr $str,$_) , substr $str, 0, $_ ) }
+              0 .. -1 + length $str;
   return 0;
 }
 
diff --git a/challenge-138/mark-anderson/raku/ch-1.raku b/challenge-138/mark-anderson/raku/ch-1.raku
index 192b2e7822..91c1424e51 100644
--- a/challenge-138/mark-anderson/raku/ch-1.raku
+++ b/challenge-138/mark-anderson/raku/ch-1.raku
@@ -1,17 +1,23 @@
 #!/usr/bin/env raku
 
-say workdays(2021);
-say workdays(2020);
+use Test;
+plan 9;
+
+is workdays(2020), 262;
+is workdays(2021), 261;
+is workdays(2022), 260;
+is workdays(2050), 260;
+is workdays(2051), 260;
+is workdays(2052), 262;
+is workdays(2053), 261;
+is workdays(2075), 261;
+is workdays(2076), 262;
 
 sub workdays($year)
 {
-    my $dt = Date.new($year, 1, 1);
-    my $days = $dt.is-leap-year ?? 366 !! 365;
+    my $a := [ Nil, 261, 261, 261, 261, 261, 260, 260 ],
+             [ Nil, 262, 262, 262, 262, 261, 260, 261 ];
 
-    for 1..$days
-    {
-        state $wd++ if $dt.day-of-week ~~ 1..5;
-        $dt .= later(:1days);
-        LAST { return $wd }
-    }
+    my $dt = Date.new($year, 1, 1);
+    $a[ +$dt.is-leap-year ][ $dt.day-of-week ];
 }
diff --git a/challenge-138/mark-anderson/raku/ch-2.raku b/challenge-138/mark-anderson/raku/ch-2.raku
index 0eced882d6..9b43a7edb6 100644
--- a/challenge-138/mark-anderson/raku/ch-2.raku
+++ b/challenge-138/mark-anderson/raku/ch-2.raku
@@ -1,8 +1,17 @@
 #!/usr/bin/env raku
 
-say split-number(81);
-say split-number(9801);
-say split-number(36);
+use Test;
+plan 9;
+
+isnt split-number(36),        1;         
+is   split-number(81),        1, '9 = 8 + 1';
+is   split-number(100),       1, '10 = 10 + 0';
+is   split-number(9801),      1, '99 = 98 + 0 + 1'; 
+is   split-number(55225),     1, '235 = 5 + 5 + 225';
+is   split-number(136161),    1, '369 = 1 + 361 + 6 + 1';
+is   split-number(11329956),  1, '3366 = 11 + 3299 + 56';
+is   split-number(57562569),  1, '7587 = 5 + 7562 + 5 + 6 + 9';
+is   split-number(100000000), 1, '10000 = 10000 + 0 + 0 + 0 + 0';
 
 sub split-number($n)
 {
@@ -10,15 +19,14 @@ sub split-number($n)
     {
         my @a = $n.comb.rotor($_);
         next if first { .elems > 1 and .head == 0 }, @a;
-        return 1 if @a>>.join.sum == $n.sqrt;
+        return 1 if @a.map(*.join).sum == $n.sqrt;
     }
 
     return 0;
 }
 
-sub terms($u) 
+sub terms($n) 
 {
-    map {
-            ((.fmt: '%0' ~ $u ~ 'b') ~~ m:g/(.)[$0+]?/).map(*.chars) 
-        }, 1..2**($u-1)-1; 
+    map { ((.fmt: '%0' ~ $n ~ 'b') ~~ m:g/ (.) [$0+]? /).map(*.chars) }, 
+                                                         1..2**($n-1)-1; 
 }
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index d5eaa0c473..abdb8a3fef 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,48 +1,33 @@
 {
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
-   "legend" : {
-      "enabled" : 0
-   },
-   "xAxis" : {
-      "type" : "category"
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 11] Last updated at 2021-11-09 19:53:16 GMT"
-   },
-   "title" : {
-      "text" : "The Weekly Challenge - 138"
-   },
    "series" : [
       {
-         "name" : "The Weekly Challenge - 138",
          "colorByPoint" : 1,
+         "name" : "The Weekly Challenge - 138",
          "data" : [
             {
+               "drilldown" : "Andrew Shitov",
                "y" : 1,
-               "name" : "Andrew Shitov",
-               "drilldown" : "Andrew Shitov"
+               "name" : "Andrew Shitov"
             },
             {
+               "drilldown" : "Dave Jacoby",
                "y" : 3,
-               "name" : "Dave Jacoby",
-               "drilldown" : "Dave Jacoby"
+               "name" : "Dave Jacoby"
+            },
+            {
+               "drilldown" : "E. Choroba",
+               "name" : "E. Choroba",
+               "y" : 2
             },
             {
-               "name" : "James Smith",
                "drilldown" : "James Smith",
+               "name" : "James Smith",
                "y" : 3
             },
             {
                "name" : "Luca Ferrari",
-               "drilldown" : "Luca Ferrari",
-               "y" : 6
+               "y" : 6,
+               "drilldown" : "Luca Ferrari"
             },
             {
                "y" : 2,
@@ -50,52 +35,63 @@
                "drilldown" : "Mark Anderson"
             },
             {
-               "y" : 2,
                "drilldown" : "Paulo Custodio",
-               "name" : "Paulo Custodio"
+               "name" : "Paulo Custodio",
+               "y" : 2
             },
             {
-               "y" : 2,
                "drilldown" : "Peter Campbell Smith",
+               "y" : 2,
                "name" : "Peter Campbell Smith"
             },
             {
-               "name" : "Robert DiCicco",
                "drilldown" : "Robert DiCicco",
+               "name" : "Robert DiCicco",
                "y" : 2
             },
             {
+               "y" : 4,
                "name" : "Roger Bell_West",
-               "drilldown" : "Roger Bell_West",
-               "y" : 4
+               "drilldown" : "Roger Bell_West"
             },
             {
-               "drilldown" : "Simon Green",
                "name" : "Simon Green",
-               "y" : 3
+               "y" : 3,
+               "drilldown" : "Simon Green"
             },
             {
-               "y" : 4,
                "drilldown" : "Ulrich Rieke",
+               "y" : 4,
                "name" : "Ulrich Rieke"
+            },
+            {
+               "name" : "W. Luis Mochan",
+               "y" : 3,
+               "drilldown" : "W. Luis Mochan"
             }
          ]
       }
    ],
+   "title" : {
+      "text" : "The Weekly Challenge - 138"
+   },
+   "legend" : {
+      "enabled" : 0
+   },
    "drilldown" : {
       "series" : [
          {
+            "id" : "Andrew Shitov",
             "name" : "Andrew Shitov",
             "data" : [
                [
                   "Raku",
                   1
                ]
-            ],
-            "id" : "Andrew Shitov"
+            ]
          },
          {
-            "name" : "Dave Jacoby",
+            "id" : "Dave Jacoby",
             "data" : [
                [
                   "Perl",
@@ -106,9 +102,20 @@
                   1
                ]
             ],
-            "id" : "Dave Jacoby"
+            "name" : "Dave Jacoby"
          },
          {
+            "id" : "E. Choroba",
+            "name" : "E. Choroba",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "id" : "James Smith",
             "data" : [
                [
                   "Perl",
@@ -119,7 +126,6 @@
                   1
                ]
             ],
-            "id" : "James Smith",
             "name" : "James Smith"
          },
          {
@@ -137,46 +143,47 @@
             "id" : "Luca Ferrari"
          },
          {
+            "name" : "Mark Anderson",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
-            "id" : "Mark Anderson",
-            "name" : "Mark Anderson"
+            "id" : "Mark Anderson"
          },
          {
+            "name" : "Paulo Custodio",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "id" : "Paulo Custodio",
-            "name" : "Paulo Custodio"
+            "id" : "Paulo Custodio"
          },
          {
-            "name" : "Peter Campbell Smith",
+            "id" : "Peter Campbell Smith",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "id" : "Peter Campbell Smith"
+            "name" : "Peter Campbell Smith"
          },
          {
             "name" : "Robert DiCicco",
-            "id" : "Robert DiCicco",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "id" : "Robert DiCicco"
          },
          {
+            "name" : "Roger Bell_West",
             "data" : [
                [
                   "Perl",
@@ -187,10 +194,10 @@
                   2
                ]
             ],
-            "id" : "Roger Bell_West",
-            "name" : "Roger Bell_West"
+            "id" : "Roger Bell_West"
          },
          {
+            "name" : "Simon Green",
             "data" : [
                [
                   "Perl",
@@ -201,10 +208,10 @@
                   1
                ]
             ],
-            "id" : "Simon Green",
-            "name" : "Simon Green"
+            "id" : "Simon Green"
          },
          {
+            "id" : "Ulrich Rieke",
             "data" : [
                [
                   "Perl",
@@ -215,23 +222,50 @@
                   2
                ]
             ],
-            "id" : "Ulrich Rieke",
             "name" : "Ulrich Rieke"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "name" : "W. Luis Mochan",
+            "id" : "W. Luis Mochan"
          }
       ]
    },
-   "tooltip" : {
-      "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/>",
-      "followPointer" : 1
-   },
    "plotOptions" : {
       "series" : {
+         "borderWidth" : 0,
          "dataLabels" : {
             "enabled" : 1,
             "format" : "{point.y}"
-         },
-         "borderWidth" : 0
+         }
       }
+   },
+   "subtitle" : {
+      "text" : "[Champions: 13] Last updated at 2021-11-10 02:54:39 GMT"
+   },
+   "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/>"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "chart" : {
+      "type" : "column"
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 5b56c157d8..3590e5f5c0 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,63 +1,63 @@
 {
-   "chart" : {
-      "type" : "column"
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2021-11-09 19:53:16 GMT"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : null
-      },
-      "min" : 0
-   },
-   "xAxis" : {
-      "labels" : {
-         "style" : {
-            "fontSize" : "13px",
-            "fontFamily" : "Verdana, sans-serif"
-         }
-      },
-      "type" : "category"
-   },
-   "legend" : {
-      "enabled" : "false"
-   },
-   "title" : {
-      "text" : "The Weekly Challenge Contributions [2019 - 2021]"
-   },
    "series" : [
       {
          "data" : [
             [
                "Blog",
-               2002
+               2003
             ],
             [
                "Perl",
-               6601
+               6605
             ],
             [
                "Raku",
                4003
             ]
          ],
+         "name" : "Contributions",
          "dataLabels" : {
-            "enabled" : "true",
-            "color" : "#FFFFFF",
-            "y" : 10,
-            "rotation" : -90,
             "style" : {
                "fontFamily" : "Verdana, sans-serif",
                "fontSize" : "13px"
             },
+            "align" : "right",
+            "rotation" : -90,
+            "enabled" : "true",
+            "color" : "#FFFFFF",
             "format" : "{point.y:.0f}",
-            "align" : "right"
-         },
-         "name" : "Contributions"
+            "y" : 10
+         }
       }
    ],
+   "legend" : {
+      "enabled" : "false"
+   },
+   "title" : {
+      "text" : "The Weekly Challenge Contributions [2019 - 2021]"
+   },
+   "subtitle" : {
+      "text" : "Last updated at 2021-11-10 02:54:39 GMT"
+   },
    "tooltip" : {
       "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
+   "yAxis" : {
+      "min" : 0,
+      "title" : {
+         "text" : null
+      }
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "xAxis" : {
+      "type" : "category",
+      "labels" : {
+         "style" : {
+            "fontFamily" : "Verdana, sans-serif",
+            "fontSize" : "13px"
+         }
+      }
    }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 8d7cb3fe7f..6089b9081b 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,21 +1,23 @@
 {
-   "subtitle" : {
-      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2021-11-09 19:53:16 GMT"
-   },
    "chart" : {
       "type" : "column"
    },
    "xAxis" : {
       "type" : "category"
    },
-   "legend" : {
-      "enabled" : "false"
-   },
    "yAxis" : {
       "title" : {
          "text" : "Total Solutions"
       }
    },
+   "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"
+   },
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2021-11-10 02:54:39 GMT"
+   },
    "plotOptions" : {
       "series" : {
          "borderWidth" : 0,
@@ -25,708 +27,12 @@
          }
       }
    },
-   "series" : [
-      {
-         "data" : [
-            {
-               "y" : 161,
-               "drilldown" : "001",
-               "name" : "#001"
-            },
-            {
-               "name" : "#002",
-               "drilldown" : "002",
-               "y" : 125
-            },
-            {
-               "y" : 81,
-               "drilldown" : "003",
-               "name" : "#003"
-            },
-            {
-               "name" : "#004",
-               "drilldown" : "004",
-               "y" : 99
-            },
-            {
-               "name" : "#005",
-               "drilldown" : "005",
-               "y" : 78
-            },
-            {
-               "drilldown" : "006",
-               "name" : "#006",
-               "y" : 58
-            },
-            {
-               "y" : 64,
-               "name" : "#007",
-               "drilldown" : "007"
-            },
-            {
-               "y" : 78,
-               "drilldown" : "008",
-               "name" : "#008"
-            },
-            {
-               "y" : 76,
-               "name" : "#009",
-               "drilldown" : "009"
-            },
-            {
-               "y" : 65,
-               "name" : "#010",
-               "drilldown" : "010"
-            },
-            {
-               "y" : 85,
-               "drilldown" : "011",
-               "name" : "#011"
-            },
-            {
-               "name" : "#012",
-               "drilldown" : "012",
-               "y" : 89
-            },
-            {
-               "drilldown" : "013",
-               "name" : "#013",
-               "y" : 85
-            },
-            {
-               "y" : 101,
-               "name" : "#014",
-               "drilldown" : "014"
-            },
-            {
-               "y" : 99,
-               "drilldown" : "015",
-               "name" : "#015"
-            },
-            {
-               "drilldown" : "016",
-               "name" : "#016",
-               "y" : 71
-            },
-            {
-               "y" : 84,
-               "drilldown" : "017",
-               "name" : "#017"
-            },
-            {
-               "y" : 81,
-               "drilldown" : "018",
-               "name" : "#018"
-            },
-            {
-               "drilldown" : "019",
-               "name" : "#019",
-               "y" : 103
-            },
-            {
-               "drilldown" : "020",
-               "name" : "#020",
-               "y" : 101
-            },
-            {
-               "y" : 72,
-               "name" : "#021",
-               "drilldown" : "021"
-            },
-            {
-               "drilldown" : "022",
-               "name" : "#022",
-               "y" : 68
-            },
-            {
-               "y" : 97,
-               "drilldown" : "023",
-               "name" : "#023"
-            },
-            {
-               "y" : 75,
-               "drilldown" : "024",
-               "name" : "#024"
-            },
-            {
-               "y" : 59,
-               "drilldown" : "025",
-               "name" : "#025"
-            },
-            {
-               "y" : 74,
-               "drilldown" : "026",
-               "name" : "#026"
-            },
-            {
-               "name" : "#027",
-               "drilldown" : "027",
-               "y" : 60
-            },
-            {
-               "drilldown" : "028",
-               "name" : "#028",
-               "y" : 80
-            },
-            {
-               "name" : "#029",
-               "drilldown" : "029",
-               "y" : 79
-            },
-            {
-               "name" : "#030",
-               "drilldown" : "030",
-               "y" : 117
-            },
-            {
-               "y" : 89,
-               "drilldown" : "031",
-               "name" : "#031"
-            },
-            {
-               "y" : 94,
-               "name" : "#032",
-               "drilldown" : "032"
-            },
-            {
-               "y" : 110,
-               "drilldown" : "033",
-               "name" : "#033"
-            },
-            {
-               "y" : 64,
-               "name" : "#034",
-               "drilldown" : "034"
-            },
-            {
-               "drilldown" : "035",
-               "name" : "#035",
-               "y" : 64
-            },
-            {
-               "y" : 68,
-               "name" : "#036",
-               "drilldown" : "036"
-            },
-            {
-               "name" : "#037",
-               "drilldown" : "037",
-               "y" : 67
-            },
-            {
-               "y" : 68,
-               "drilldown" : "038",
-               "name" : "#038"
-            },
-            {
-               "y" : 62,
-               "name" : "#039",
-               "drilldown" : "039"
-            },
-            {
-               "drilldown" : "040",
-               "name" : "#040",
-               "y" : 73
-            },
-            {
-               "y" : 76,
-               "drilldown" : "041",
-               "name" : "#041"
-            },
-            {
-               "name" : "#042",
-               "drilldown" : "042",
-               "y" : 92
-            },
-            {
-               "y" : 68,
-               "name" : "#043",
-