- Added solutions by Laurent Rosenfeld.

15 files changed, 1071 insertions, 952 deletions

diff --git a/challenge-047/laurent-rosenfeld/blog.txt b/challenge-047/laurent-rosenfeld/blog.txt
new file mode 100644
index 0000000000..14fb3fbdd3
--- /dev/null
+++ b/challenge-047/laurent-rosenfeld/blog.txt
@@ -0,0 +1 @@
+http://blogs.perl.org/users/laurent_r/2020/02/perl-weekly-challenge-47-roman-calculator-and-gapful-numbers.html
diff --git a/challenge-047/laurent-rosenfeld/perl/ch-1.pl b/challenge-047/laurent-rosenfeld/perl/ch-1.pl
new file mode 100644
index 0000000000..8b4dffe035
--- /dev/null
+++ b/challenge-047/laurent-rosenfeld/perl/ch-1.pl
@@ -0,0 +1,43 @@
+use strict;
+use warnings;
+use feature qw/say/;
+
+
+my %rom_tab = (I => 1,  V => 5, X => 10, L => 50, C => 100, D => 500, M => 1000);
+
+sub from_roman {
+    my $roman = uc shift;
+    my $numeric = 0;
+    my $prev_letter = "M";
+    for my $letter (split //, $roman) {
+        $numeric -= 2 * $rom_tab{$prev_letter}
+            if $rom_tab{$letter} > $rom_tab{$prev_letter};
+        $numeric += $rom_tab{$letter};
+        $prev_letter = $letter;
+    }
+    return $numeric;
+}
+
+sub to_roman {
+    my $arabic = shift;
+    warn "$arabic out of bounds" unless $arabic > 0 and $arabic < 4000;
+    my %hash = %rom_tab;
+    $hash{$_->[0]} = $_->[1] for (['IV', 4], ['IX', 9], ['XL', 40],
+        ['XC', 90], ['CD', 400], ['CM', 900] );
+    my $roman = "";
+    for my $key (sort { $hash{$b} <=> $hash{$a} } keys %hash) {
+        my $num = int ($arabic / $hash{$key});
+        $roman .= $key x $num;
+        $arabic -= $hash{$key} * $num;
+    }
+    return $roman;
+}
+
+my @input;
+for (@ARGV) {
+    push @input, $_ if /[-+*\/]/;
+    push @input, from_roman $_ if /[ivxlcdm]+/i;
+}
+die "Need at least three parameters" if @input < 3; # we need at least 1 operator and two operands
+my $result = eval join ' ', @input;
+say "@ARGV = ", to_roman $result;
diff --git a/challenge-047/laurent-rosenfeld/perl/ch-2.pl b/challenge-047/laurent-rosenfeld/perl/ch-2.pl
new file mode 100644
index 0000000000..8fea58aa12
--- /dev/null
+++ b/challenge-047/laurent-rosenfeld/perl/ch-2.pl
@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+use feature "say";
+
+my @gapful = ();
+my $current = 100;
+do {
+    my ($start, $end) = $current =~ /^(\d)\d+(\d)$/;
+    push @gapful, $current unless $current % ($start . $end);
+    $current ++;
+} until $#gapful >= 19;
+say "@gapful";
diff --git a/challenge-047/laurent-rosenfeld/raku/ch-1.p6 b/challenge-047/laurent-rosenfeld/raku/ch-1.p6
new file mode 100644
index 0000000000..1b997761a9
--- /dev/null
+++ b/challenge-047/laurent-rosenfeld/raku/ch-1.p6
@@ -0,0 +1,39 @@
+use v6;
+use MONKEY-SEE-NO-EVAL;
+
+subset Roman-str of Str where $_ ~~ /^<[IVXLCDMivxlcdm]>+$/;
+
+my %rom-tab = < I 1   V 5   X 10   L 50   C 100  D 500  M 1000
+               IV 4  IX 9   XL 40  XC 90  CD 400   CM 900 >;
+my @ordered_romans = reverse sort { %rom-tab{$_} }, keys %rom-tab;
+
+sub from-roman (Roman-str $roman) {
+    my $numeric = 0;
+    my $prev_letter = "M";
+    for $roman.uc.comb -> $letter {
+        $numeric -= 2 * %rom-tab{$prev_letter}
+            if %rom-tab{$letter} > %rom-tab{$prev_letter};
+        $numeric += %rom-tab{$letter};
+        $prev_letter = $letter;
+    }
+    return $numeric;
+}
+
+sub to-roman (Int $arabic is copy where  { 0 < $_ < 4000 }) {
+    my $roman = "";
+    for @ordered_romans -> $key {
+        my $num = ($arabic / %rom-tab{$key}).Int;
+        $roman ~= $key x $num;
+        $arabic -= %rom-tab{$key} * $num;
+    }
+    return $roman;
+}
+
+my @input;
+for @*ARGS {
+    push @input, $_ if /<[-+*\/]>/;
+    push @input, from-roman $_ if m:i/<[ivxlcdm]>+/;
+}
+die "Need at least three parameters" if @input < 3; # we need at least 1 operator and two operands
+my $result = EVAL join ' ', @input;
+say "@*ARGS[] = ", to-roman $result;
diff --git a/challenge-047/laurent-rosenfeld/raku/ch-2.sh b/challenge-047/laurent-rosenfeld/raku/ch-2.sh
new file mode 100644
index 0000000000..ec6e9aef03
--- /dev/null
+++ b/challenge-047/laurent-rosenfeld/raku/ch-2.sh
@@ -0,0 +1 @@
+perl6 -e 'say (grep { $_ %% .comb[0,*-1].join}, 100..*)[0..19];'
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index af09a1f9a5..ea68f8797b 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,10 +1,191 @@
 {
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
    "xAxis" : {
       "type" : "category"
    },
+   "series" : [
+      {
+         "colorByPoint" : 1,
+         "name" : "Perl Weekly Challenge - 047",
+         "data" : [
+            {
+               "drilldown" : "Alicia Bielsa",
+               "name" : "Alicia Bielsa",
+               "y" : 3
+            },
+            {
+               "drilldown" : "Andrezgz",
+               "y" : 2,
+               "name" : "Andrezgz"
+            },
+            {
+               "drilldown" : "Arne Sommer",
+               "y" : 3,
+               "name" : "Arne Sommer"
+            },
+            {
+               "drilldown" : "Athanasius",
+               "y" : 3,
+               "name" : "Athanasius"
+            },
+            {
+               "drilldown" : "Cheok-Yin Fung",
+               "y" : 2,
+               "name" : "Cheok-Yin Fung"
+            },
+            {
+               "drilldown" : "Cristina Heredia",
+               "name" : "Cristina Heredia",
+               "y" : 1
+            },
+            {
+               "y" : 2,
+               "name" : "Dave Cross",
+               "drilldown" : "Dave Cross"
+            },
+            {
+               "drilldown" : "Dave Jacoby",
+               "name" : "Dave Jacoby",
+               "y" : 3
+            },
+            {
+               "name" : "Duane Powell",
+               "y" : 2,
+               "drilldown" : "Duane Powell"
+            },
+            {
+               "y" : 2,
+               "name" : "Duncan C. White",
+               "drilldown" : "Duncan C. White"
+            },
+            {
+               "drilldown" : "E. Choroba",
+               "y" : 2,
+               "name" : "E. Choroba"
+            },
+            {
+               "drilldown" : "Javier Luque",
+               "name" : "Javier Luque",
+               "y" : 5
+            },
+            {
+               "drilldown" : "Kevin Colyer",
+               "y" : 2,
+               "name" : "Kevin Colyer"
+            },
+            {
+               "drilldown" : "Laurent Rosenfeld",
+               "y" : 5,
+               "name" : "Laurent Rosenfeld"
+            },
+            {
+               "y" : 2,
+               "name" : "Lubos Kolouch",
+               "drilldown" : "Lubos Kolouch"
+            },
+            {
+               "name" : "Luca Ferrari",
+               "y" : 4,
+               "drilldown" : "Luca Ferrari"
+            },
+            {
+               "y" : 2,
+               "name" : "Mark Anderson",
+               "drilldown" : "Mark Anderson"
+            },
+            {
+               "name" : "Markus Holzer",
+               "y" : 2,
+               "drilldown" : "Markus Holzer"
+            },
+            {
+               "name" : "Mohammad S Anwar",
+               "y" : 1,
+               "drilldown" : "Mohammad S Anwar"
+            },
+            {
+               "drilldown" : "Noud Aldenhoven",
+               "y" : 2,
+               "name" : "Noud Aldenhoven"
+            },
+            {
+               "drilldown" : "Phillip Harris",
+               "name" : "Phillip Harris",
+               "y" : 2
+            },
+            {
+               "drilldown" : "Ruben Westerberg",
+               "y" : 4,
+               "name" : "Ruben Westerberg"
+            },
+            {
+               "y" : 2,
+               "name" : "Saif Ahmed",
+               "drilldown" : "Saif Ahmed"
+            },
+            {
+               "y" : 2,
+               "name" : "Simon Proctor",
+               "drilldown" : "Simon Proctor"
+            },
+            {
+               "drilldown" : "Steven Wilson",
+               "name" : "Steven Wilson",
+               "y" : 1
+            },
+            {
+               "drilldown" : "Ulrich Rieke",
+               "y" : 3,
+               "name" : "Ulrich Rieke"
+            },
+            {
+               "drilldown" : "User Person",
+               "y" : 2,
+               "name" : "User Person"
+            },
+            {
+               "y" : 2,
+               "name" : "Wanderdoc",
+               "drilldown" : "Wanderdoc"
+            }
+         ]
+      }
+   ],
+   "tooltip" : {
+      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
+      "followPointer" : 1,
+      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>"
+   },
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         },
+         "borderWidth" : 0
+      }
+   },
+   "subtitle" : {
+      "text" : "[Champions: 28] Last updated at 2020-02-16 23:37:27 GMT"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 047"
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "legend" : {
+      "enabled" : 0
+   },
    "drilldown" : {
       "series" : [
          {
+            "name" : "Alicia Bielsa",
+            "id" : "Alicia Bielsa",
             "data" : [
                [
                   "Perl",
@@ -14,9 +195,7 @@
                   "Raku",
                   1
                ]
-            ],
-            "name" : "Alicia Bielsa",
-            "id" : "Alicia Bielsa"
+            ]
          },
          {
             "data" : [
@@ -29,8 +208,6 @@
             "id" : "Andrezgz"
          },
          {
-            "id" : "Arne Sommer",
-            "name" : "Arne Sommer",
             "data" : [
                [
                   "Raku",
@@ -40,11 +217,11 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "Arne Sommer",
+            "name" : "Arne Sommer"
          },
          {
-            "id" : "Athanasius",
-            "name" : "Athanasius",
             "data" : [
                [
                   "Perl",
@@ -54,11 +231,13 @@
                   "Raku",
                   1
                ]
-            ]
+            ],
+            "name" : "Athanasius",
+            "id" : "Athanasius"
          },
          {
-            "id" : "Cheok-Yin Fung",
             "name" : "Cheok-Yin Fung",
+            "id" : "Cheok-Yin Fung",
             "data" : [
                [
                   "Perl",
@@ -73,22 +252,20 @@
                   1
                ]
             ],
-            "name" : "Cristina Heredia",
-            "id" : "Cristina Heredia"
+            "id" : "Cristina Heredia",
+            "name" : "Cristina Heredia"
          },
          {
+            "name" : "Dave Cross",
+            "id" : "Dave Cross",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ],
-            "name" : "Dave Cross",
-            "id" : "Dave Cross"
+            ]
          },
          {
-            "name" : "Dave Jacoby",
-            "id" : "Dave Jacoby",
             "data" : [
                [
                   "Perl",
@@ -98,7 +275,9 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "name" : "Dave Jacoby",
+            "id" : "Dave Jacoby"
          },
          {
             "id" : "Duane Powell",
@@ -117,18 +296,18 @@
                   2
                ]
             ],
-            "name" : "Duncan C. White",
-            "id" : "Duncan C. White"
+            "id" : "Duncan C. White",
+            "name" : "Duncan C. White"
          },
          {
-            "name" : "E. Choroba",
-            "id" : "E. Choroba",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "id" : "E. Choroba",
+            "name" : "E. Choroba"
          },
          {
             "data" : [
@@ -145,22 +324,40 @@
                   1
                ]
             ],
-            "name" : "Javier Luque",
-            "id" : "Javier Luque"
+            "id" : "Javier Luque",
+            "name" : "Javier Luque"
          },
          {
+            "name" : "Kevin Colyer",
+            "id" : "Kevin Colyer",
             "data" : [
                [
                   "Raku",
                   2
                ]
-            ],
-            "id" : "Kevin Colyer",
-            "name" : "Kevin Colyer"
+            ]
+         },
+         {
+            "id" : "Laurent Rosenfeld",
+            "name" : "Laurent Rosenfeld",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ]
          },
          {
-            "name" : "Lubos Kolouch",
             "id" : "Lubos Kolouch",
+            "name" : "Lubos Kolouch",
             "data" : [
                [
                   "Perl",
@@ -169,8 +366,6 @@
             ]
          },
          {
-            "name" : "Luca Ferrari",
-            "id" : "Luca Ferrari",
             "data" : [
                [
                   "Raku",
@@ -180,7 +375,9 @@
                   "Blog",
                   2
                ]
-            ]
+            ],
+            "name" : "Luca Ferrari",
+            "id" : "Luca Ferrari"
          },
          {
             "name" : "Mark Anderson",
@@ -193,8 +390,8 @@
             ]
          },
          {
-            "name" : "Markus Holzer",
             "id" : "Markus Holzer",
+            "name" : "Markus Holzer",
             "data" : [
                [
                   "Raku",
@@ -203,14 +400,14 @@
             ]
          },
          {
+            "id" : "Mohammad S Anwar",
+            "name" : "Mohammad S Anwar",
             "data" : [
                [
                   "Perl",
                   1
                ]
-            ],
-            "id" : "Mohammad S Anwar",
-            "name" : "Mohammad S Anwar"
+            ]
          },
          {
             "data" : [
@@ -223,14 +420,14 @@
             "id" : "Noud Aldenhoven"
          },
          {
+            "id" : "Phillip Harris",
+            "name" : "Phillip Harris",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ],
-            "id" : "Phillip Harris",
-            "name" : "Phillip Harris"
+            ]
          },
          {
             "data" : [
@@ -243,8 +440,8 @@
                   2
                ]
             ],
-            "id" : "Ruben Westerberg",
-            "name" : "Ruben Westerberg"
+            "name" : "Ruben Westerberg",
+            "id" : "Ruben Westerberg"
          },
          {
             "id" : "Saif Ahmed",
@@ -273,12 +470,12 @@
                   1
                ]
             ],
-            "name" : "Steven Wilson",
-            "id" : "Steven Wilson"
+            "id" : "Steven Wilson",
+            "name" : "Steven Wilson"
          },
          {
-            "id" : "Ulrich Rieke",
             "name" : "Ulrich Rieke",
+            "id" : "Ulrich Rieke",
             "data" : [
                [
                   "Perl",
@@ -297,8 +494,8 @@
                   2
                ]
             ],
-            "id" : "User Person",
-            "name" : "User Person"
+            "name" : "User Person",
+            "id" : "User Person"
          },
          {
             "data" : [
@@ -307,183 +504,9 @@
                   2
                ]
             ],
-            "id" : "Wanderdoc",
-            "name" : "Wanderdoc"
+            "name" : "Wanderdoc",
+            "id" : "Wanderdoc"
          }
       ]
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 047"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 27] Last updated at 2020-02-16 21:13:03 GMT"
-   },
-   "tooltip" : {
-      "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/>",
-      "followPointer" : 1
-   },
-   "legend" : {
-      "enabled" : 0
-   },
-   "series" : [
-      {
-         "name" : "Perl Weekly Challenge - 047",
-         "colorByPoint" : 1,
-         "data" : [
-            {
-               "y" : 3,
-               "drilldown" : "Alicia Bielsa",
-               "name" : "Alicia Bielsa"
-            },
-            {
-               "y" : 2,
-               "name" : "Andrezgz",
-               "drilldown" : "Andrezgz"
-            },
-            {
-               "drilldown" : "Arne Sommer",
-               "name" : "Arne Sommer",
-               "y" : 3
-            },
-            {
-               "drilldown" : "Athanasius",
-               "name" : "Athanasius",
-               "y" : 3
-            },
-            {
-               "drilldown" : "Cheok-Yin Fung",
-               "name" : "Cheok-Yin Fung",
-               "y" : 2
-            },
-            {
-               "drilldown" : "Cristina Heredia",
-               "name" : "Cristina Heredia",
-               "y" : 1
-            },
-            {
-               "name" : "Dave Cross",
-               "drilldown" : "Dave Cross",
-               "y" : 2
-            },
-            {
-               "name" : "Dave Jacoby",
-               "drilldown" : "Dave Jacoby",
-               "y" : 3
-            },
-            {
-               "name" : "Duane Powell",
-               "drilldown" : "Duane Powell",
-               "y" : 2
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Duncan C. White",
-               "name" : "Duncan C. White"
-            },
-            {
-               "y" : 2,
-               "name" : "E. Choroba",
-               "drilldown" : "E. Choroba"
-            },
-            {
-               "name" : "Javier Luque",
-               "drilldown" : "Javier Luque",
-               "y" : 5
-            },
-            {
-               "name" : "Kevin Colyer",
-               "drilldown" : "Kevin Colyer",
-               "y" : 2
-            },
-            {
-               "drilldown" : "Lubos Kolouch",
-               "name" : "Lubos Kolouch",
-               "y" : 2
-            },
-            {
-               "y" : 4,
-               "drilldown" : "Luca Ferrari",
-               "name" : "Luca Ferrari"
-            },
-            {
-               "drilldown" : "Mark Anderson",
-               "name" : "Mark Anderson",
-               "y" : 2
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Markus Holzer",
-               "name" : "Markus Holzer"
-            },
-            {
-               "name" : "Mohammad S Anwar",
-               "drilldown" : "Mohammad S Anwar",
-               "y" : 1
-            },
-            {
-               "drilldown" : "Noud Aldenhoven",
-               "name" : "Noud Aldenhoven",
-               "y" : 2
-            },
-            {
-               "y" : 2,
-               "name" : "Phillip Harris",
-               "drilldown" : "Phillip Harris"
-            },
-            {
-               "name" : "Ruben Westerberg",
-               "drilldown" : "Ruben Westerberg",
-               "y" : 4
-            },
-            {
-               "drilldown" : "Saif Ahmed",
-               "name" : "Saif Ahmed",
-               "y" : 2
-            },
-            {
-               "drilldown" : "Simon Proctor",
-               "name" : "Simon Proctor",
-               "y" : 2
-            },
-            {
-               "y" : 1,
-               "drilldown" : "Steven Wilson",
-               "name" : "Steven Wilson"
-            },
-            {
-               "y" : 3,
-               "drilldown" : "Ulrich Rieke",
-               "name" : "Ulrich Rieke"
-            },
-            {
-               "drilldown" : "User Person",
-               "name" : "User Person",
-               "y" : 2
-            },
-            {
-               "drilldown" : "Wanderdoc",
-               "name" : "Wanderdoc",
-               "y" : 2
-            }
-         ]
-      }
-   ],
-   "chart" : {
-      "type" : "column"
-   },
-   "plotOptions" : {
-      "series" : {
-         "borderWidth" : 0,
-         "dataLabels" : {
-            "enabled" : 1,
-            "format" : "{point.y}"
-         }
-      }
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 6d324e72a1..3b19cdef4d 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -2,62 +2,62 @@
    "chart" : {
       "type" : "column"
    },
-   "yAxis" : {
-      "min" : 0,
-      "title" : {
-         "text" : null
-      }
+   "legend" : {
+      "enabled" : "false"
+   },
+   "subtitle" : {
+      "text" : "Last updated at 2020-02-16 23:37:27 GMT"
    },
    "title" : {
       "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
    },
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
    "xAxis" : {
-      "type" : "category",
       "labels" : {
          "style" : {
             "fontFamily" : "Verdana, sans-serif",
             "fontSize" : "13px"
          }
-      }
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2020-02-16 21:13:03 GMT"
-   },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
+      },
+      "type" : "category"
    },
    "series" : [
       {
          "dataLabels" : {
-            "color" : "#FFFFFF",
             "align" : "right",
             "style" : {
-               "fontSize" : "13px",
-               "fontFamily" : "Verdana, sans-serif"
+               "fontFamily" : "Verdana, sans-serif",
+               "fontSize" : "13px"
             },
+            "format" : "{point.y:.0f}",
             "y" : 10,
+            "color" : "#FFFFFF",
             "rotation" : -90,
-            "enabled" : "true",
-            "format" : "{point.y:.0f}"
+            "enabled" : "true"
          },
          "name" : "Contributions",
          "data" : [
             [
                "Blog",
-               501
+               502
             ],
             [
                "Perl",
-               1939
+               1941
             ],
             [
                "Raku",
-               1184
+               1186
             ]
          ]
       }
    ],
-   "legend" : {
-      "enabled" : "false"
+   "yAxis" : {
+      "title" : {
+         "text" : null
+      },
+      "min" : 0
    }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index cf4521d788..1b420d84ab 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,26 +1,33 @@
 {
-   "chart" : {
-      "type" : "column"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
    "plotOptions" : {
       "series" : {
+         "borderWidth" : 0,
          "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         },
-         "borderWidth" : 0
+            "enabled" : 1,
+            "format" : "{point.y}"
+         }
       }
    },
+   "tooltip" : {
+      "followPointer" : "true",
+      "headerFormat" : "<span style=\"font-size:11px\"></span>",
+      "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>"
+   },
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2020-02-16 23:37:27 GMT"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge Language"
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
    "drilldown" : {
       "series" : [
          {
-            "name" : "001",
-            "id" : "001",
             "data" : [
                [
                   "Perl",
@@ -34,11 +41,11 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "name" : "001",
+            "id" : "001"
          },
          {
-            "name" : "002",
-            "id" : "002",
             "data" : [
                [
                   "Perl",
@@ -52,7 +59,9 @@
                   "Blog",
                   10
                ]
-            ]
+            ],
+            "id" : "002",
+            "name" : "002"
          },
          {
             "id" : "003",
@@ -73,8 +82,6 @@
             ]
          },
          {
-            "id" : "004",
-            "name" : "004",
             "data" : [
                [
                   "Perl",
@@ -88,11 +95,11 @@
                   "Blog",
                   10
                ]
-            ]
+            ],
+            "id" : "004",
+            "name" : "004"
          },
          {
-            "name" : "005",
-            "id" : "005",
             "data" : [
                [
                   "Perl",
@@ -106,11 +113,13 @@
                   "Blog",
                   12
                ]
-            ]
+            ],
+            "name" : "005",
+            "id" : "005"
          },
          {
-            "id" : "006",
             "name" : "006",
+            "id" : "006",
             "data" : [
                [
                   "Perl",
@@ -141,12 +150,10 @@
                   10
                ]
             ],
-            "name" : "007",
-            "id" : "007"
+            "id" : "007",
+            "name" : "007"
          },
          {
-            "name" : "008",
-            "id" : "008",
             "data" : [
                [
                   "Perl",
@@ -160,7 +167,9 @@
                   "Blog",
                   12
                ]
-            ]
+            ],
+            "id" : "008",
+            "name" : "008"
          },
          {
             "data" : [
@@ -177,12 +186,12 @@
                   13
                ]
             ],
-            "id" : "009",
-            "name" : "009"
+            "name" : "009",
+            "id" : "009"
          },
          {
-            "id" : "010",
             "name" : "010",
+            "id" : "010",
             "data" : [
                [
                   "Perl",
@@ -213,10 +222,12 @@
                   10
                ]
             ],
-            "id" : "011",
-            "name" : "011"
+            "name" : "011",
+            "id" : "011"
          },
          {
+            "id" : "012",
+            "name" : "012",
             "data" : [
                [
                   "Perl",
@@ -230,11 +241,11 @@
                   "Blog",
                   11
                ]
-            ],
-            "name" : "012",
-            "id" : "012"
+            ]
          },
          {
+            "name" : "013",
+            "id" : "013",
             "data" : [
                [
                   "Perl",
@@ -248,9 +259,7 @@
                   "Blog",
                   13
                ]
-            ],
-            "name" : "013",
-            "id" : "013"
+            ]
          },
          {
             "data" : [