- Added solutions by Laurent Rosenfeld.

15 files changed, 1063 insertions, 889 deletions

diff --git a/challenge-039/laurent-rosenfeld/blog.txt b/challenge-039/laurent-rosenfeld/blog.txt
new file mode 100644
index 0000000000..1e29748974
--- /dev/null
+++ b/challenge-039/laurent-rosenfeld/blog.txt
@@ -0,0 +1 @@
+http://blogs.perl.org/users/laurent_r/2019/12/perl-weekly-challenge-39-guest-house-and-reverse-polish-notation.html
diff --git a/challenge-039/laurent-rosenfeld/perl5/ch-1.pl b/challenge-039/laurent-rosenfeld/perl5/ch-1.pl
new file mode 100644
index 0000000000..cf490f2e1b
--- /dev/null
+++ b/challenge-039/laurent-rosenfeld/perl5/ch-1.pl
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use feature qw/say/;
+
+my %hm;
+for my $hour (0..23) {
+    $hm{$hour}[$_] = 0 for 0..59;
+}
+while (<DATA>) {
+    next unless /\S/;
+    my ($in_h, $in_m, $out_h, $out_m) = /(\d\d):(\d\d)\D+(\d\d):(\d\d)/;
+    if ($out_h eq $in_h) {
+        $hm{0+$in_h}[$_] = 1 for $in_m..$out_m;
+    } else {
+        $hm{0+$in_h}[$_]  = 1 for $in_m..59; # end the first hour
+        for my $hour ($in_h + 1 .. $out_h -1) {
+            $hm{$hour}[$_] = 1 for 0..59;    # If several hours
+        }
+        $hm{0+$out_h}[$_] = 1 for 0..$out_m; # Complete last hour
+    }
+}
+my $total_on = 0;
+for my $hour (keys %hm) {
+        $total_on += $hm{$hour}[$_] for 0..59;
+}
+say "Total time on: $total_on minutes.";
+
+__DATA__
+1) Alex    IN: 09:10 OUT: 09:45
+2) Arnold  IN: 09:15 OUT: 09:33
+3) Bob     IN: 09:22 OUT: 09:55
+4) Charlie IN: 09:25 OUT: 10:05
+5) Steve   IN: 09:33 OUT: 10:01
+6) Roger   IN: 09:44 OUT: 10:12
+7) David   IN: 09:57 OUT: 10:23
+8) Neil    IN: 10:01 OUT: 10:19
+9) Chris   IN: 10:10 OUT: 11:00
+10) Liz    IN: 12:07 OUT: 17:05
diff --git a/challenge-039/laurent-rosenfeld/perl5/ch-2.pl b/challenge-039/laurent-rosenfeld/perl5/ch-2.pl
new file mode 100644
index 0000000000..2685cb543a
--- /dev/null
+++ b/challenge-039/laurent-rosenfeld/perl5/ch-2.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use utf8;
+use Test::More tests => 5;
+
+my %operations = (
+    '+' => sub { return $_[0] + $_[1]; },
+    '-' => sub { return $_[0] - $_[1]; }, # hyphen
+    '−' => sub { return $_[0] - $_[1]; }, # minus
+    'x' => sub { return $_[0] * $_[1]; },
+    '*' => sub { return $_[0] * $_[1]; },
+    '×' => sub { return $_[0] * $_[1]; },
+    '/' => sub { return $_[0] / $_[1]; },
+    '÷' => sub { return $_[0] / $_[1]; },
+);
+
+sub parse_operation {
+    my @stack;
+    for my $token (split /\s+/, shift) {
+        if ($token =~ /^\d+$/) {
+            push @stack, $token ;
+        } elsif (exists $operations{$token}) {
+            return "Invalid RPN expression" if @stack < 2;
+            my $op2 = pop @stack;
+            my $op1 = pop @stack;
+            push @stack, $operations{$token}->($op1, $op2);
+        } else {
+            die "Invalid token $token.";
+        }
+    }
+    return $stack[0]
+}
+is parse_operation("1 2 +"), 3, "2 operands";
+is parse_operation("1 2 + 4 ×"), 12, "3 operands, a Unicode multiplication operator";
+is parse_operation("1 2 + 4 * 5 + 3 -"), 14, "5 operands";
+is parse_operation("3 4 5 x -"), -17, "Start with 3 operands and then two operators";
+is parse_operation("15 7 1 1 + − ÷ 3 × 2 1 1 + + −"), 5, "8 operands, 4 Unicode operators";
diff --git a/challenge-039/laurent-rosenfeld/perl6/ch-1.p6 b/challenge-039/laurent-rosenfeld/perl6/ch-1.p6
new file mode 100644
index 0000000000..6391e678d6
--- /dev/null
+++ b/challenge-039/laurent-rosenfeld/perl6/ch-1.p6
@@ -0,0 +1,37 @@
+use v6;
+
+my $input =
+   "1) Alex    IN: 09:10 OUT: 09:45
+    2) Arnold  IN: 09:15 OUT: 09:33
+    3) Bob     IN: 09:22 OUT: 09:55
+    4) Charlie IN: 09:25 OUT: 10:05
+    5) Steve   IN: 09:33 OUT: 10:01
+    6) Roger   IN: 09:44 OUT: 10:12
+    7) David   IN: 09:57 OUT: 10:23
+    8) Neil    IN: 10:01 OUT: 10:19
+    9) Chris   IN: 10:10 OUT: 11:00
+    10) Liz    IN: 12:07 OUT: 17:05";
+
+my %hm;
+for 0..23 -> $hour {
+    %hm{$hour}[$_] = 0 for 0..59;
+}
+for $input.lines {
+    next unless /\S/;
+    my ($in_h, $in_m, $out_h, $out_m) = map { +$_}, $/[0..3] if /(\d\d)':'(\d\d)\D+(\d\d)':'(\d\d)/;
+    if ($out_h == $in_h) {
+        %hm{$in_h}[$_] = 1 for $in_m..$out_m;
+    } else {
+        %hm{$in_h}[$_]  = 1 for $in_m..59; # end the first hour
+        for $in_h + 1 .. $out_h -1 -> $hour {
+            %hm{$hour}[$_] = 1 for 0..59; # If several hours
+        }
+        %hm{$out_h}[$_] = 1 for 0..$out_m; # Complete last hour
+    }
+}
+
+my $total_on = 0;
+for keys %hm -> $hour {
+    $total_on += sum %hm{$hour};
+}
+say "Total time on: $total_on minutes.";
diff --git a/challenge-039/laurent-rosenfeld/perl6/ch-2.p6 b/challenge-039/laurent-rosenfeld/perl6/ch-2.p6
new file mode 100644
index 0000000000..2e5068f572
--- /dev/null
+++ b/challenge-039/laurent-rosenfeld/perl6/ch-2.p6
@@ -0,0 +1,36 @@
+use v6;
+use Test;
+
+my %operations = (
+    '+' => { $^a + $^b; },
+    '-' => { $^a - $^b; }, # hyphen
+    '−' => { $^a - $^b; }, # dash
+    'x' => { $^a * $^b; },
+    '*' => { $^a * $^b; },
+    '×' => { $^a * $^b; },
+    '/' => { $^a / $^b; },
+    '÷' => { $^a / $^b; },
+);
+
+sub parse_operation (Str $expr) {
+    my @stack;
+    for $expr.split(/\s+/) -> $token {
+        if $token ~~ /^ \d+ $/ {
+            push @stack, $token ;
+        } elsif (%operations{$token}:exists) {
+            return "Invalid RPN expression" if @stack.elems < 2;
+            my $op2 = pop @stack;
+            my $op1 = pop @stack;
+            push @stack, %operations{$token}($op1, $op2);
+        } else {
+            die "Invalid token $token.";
+        }
+    }
+    return @stack[0]
+}
+plan 5;
+is parse_operation("1 2 +"), 3, "2 operands";
+is parse_operation("1 2 + 4 ×"), 12, "3 operands, a Unicode multiplication operator";
+is parse_operation("1 2 + 4 * 5 + 3 -"), 14, "5 operands";
+is parse_operation("3 4 5 x -"), -17, "Start with 3 operands and then two operators";
+is parse_operation("15 7 1 1 + − ÷ 3 × 2 1 1 + + −"), 5, "8 operands, 4 Unicode operators";
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 18a617cfec..75458ec116 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,12 +1,71 @@
 {
-   "chart" : {
-      "type" : "column"
+   "subtitle" : {
+      "text" : "[Champions: 10] Last updated at 2019-12-19 23:37:50 GMT"
    },
-   "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/>"
+   "title" : {
+      "text" : "Perl Weekly Challenge - 039"
    },
+   "legend" : {
+      "enabled" : 0
+   },
+   "series" : [
+      {
+         "name" : "Perl Weekly Challenge - 039",
+         "data" : [
+            {
+               "drilldown" : "Andrezgz",
+               "y" : 2,
+               "name" : "Andrezgz"
+            },
+            {
+               "drilldown" : "Daniel Mita",
+               "name" : "Daniel Mita",
+               "y" : 1
+            },
+            {
+               "name" : "Duane Powell",
+               "y" : 2,
+               "drilldown" : "Duane Powell"
+            },
+            {
+               "y" : 5,
+               "name" : "Javier Luque",
+               "drilldown" : "Javier Luque"
+            },
+            {
+               "drilldown" : "Laurent Rosenfeld",
+               "y" : 5,
+               "name" : "Laurent Rosenfeld"
+            },
+            {
+               "drilldown" : "Nazareno Delucca",
+               "y" : 2,
+               "name" : "Nazareno Delucca"
+            },
+            {
+               "drilldown" : "Roger Bell West",
+               "name" : "Roger Bell West",
+               "y" : 4
+            },
+            {
+               "drilldown" : "Ruben Westerberg",
+               "y" : 4,
+               "name" : "Ruben Westerberg"
+            },
+            {
+               "y" : 5,
+               "name" : "Ryan Thompson",
+               "drilldown" : "Ryan Thompson"
+            },
+            {
+               "y" : 2,
+               "name" : "Steven Wilson",
+               "drilldown" : "Steven Wilson"
+            }
+         ],
+         "colorByPoint" : 1
+      }
+   ],
    "drilldown" : {
       "series" : [
          {
@@ -20,14 +79,14 @@
             ]
          },
          {
+            "name" : "Daniel Mita",
+            "id" : "Daniel Mita",
             "data" : [
                [
                   "Perl 6",
                   1
                ]
-            ],
-            "id" : "Daniel Mita",
-            "name" : "Daniel Mita"
+            ]
          },
          {
             "name" : "Duane Powell",
@@ -40,7 +99,6 @@
             "id" : "Duane Powell"
          },
          {
-            "name" : "Javier Luque",
             "id" : "Javier Luque",
             "data" : [
                [
@@ -55,20 +113,38 @@
                   "Blog",
                   1
                ]
+            ],
+            "name" : "Javier Luque"
+         },
+         {
+            "name" : "Laurent Rosenfeld",
+            "id" : "Laurent Rosenfeld",
+            "data" : [
+               [
+                  "Perl 5",
+                  2
+               ],
+               [
+                  "Perl 6",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
             ]
          },
          {
             "name" : "Nazareno Delucca",
+            "id" : "Nazareno Delucca",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ],
-            "id" : "Nazareno Delucca"
+            ]
          },
          {
-            "id" : "Roger Bell West",
             "data" : [
                [
                   "Perl 5",
@@ -79,10 +155,11 @@
                   2
                ]
             ],
+            "id" : "Roger Bell West",
             "name" : "Roger Bell West"
          },
          {
-            "name" : "Ruben Westerberg",
+            "id" : "Ruben Westerberg",
             "data" : [
                [
                   "Perl 5",
@@ -93,9 +170,10 @@
                   2
                ]
             ],
-            "id" : "Ruben Westerberg"
+            "name" : "Ruben Westerberg"
          },
          {
+            "name" : "Ryan Thompson",
             "data" : [
                [
                   "Perl 5",
@@ -110,8 +188,7 @@
                   1
                ]
             ],
-            "id" : "Ryan Thompson",
-            "name" : "Ryan Thompson"
+            "id" : "Ryan Thompson"
          },
          {
             "name" : "Steven Wilson",
@@ -125,83 +202,29 @@
          }
       ]
    },
-   "legend" : {
-      "enabled" : 0
+   "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/>"
+   },
+   "xAxis" : {
+      "type" : "category"
    },
    "yAxis" : {
       "title" : {
          "text" : "Total Solutions"
       }
    },
-   "series" : [
-      {
-         "name" : "Perl Weekly Challenge - 039",
-         "colorByPoint" : 1,
-         "data" : [
-            {
-               "name" : "Andrezgz",
-               "drilldown" : "Andrezgz",
-               "y" : 2
-            },
-            {
-               "y" : 1,
-               "drilldown" : "Daniel Mita",
-               "name" : "Daniel Mita"
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Duane Powell",
-               "name" : "Duane Powell"
-            },
-            {
-               "y" : 5,
-               "drilldown" : "Javier Luque",
-               "name" : "Javier Luque"
-            },
-            {
-               "name" : "Nazareno Delucca",
-               "drilldown" : "Nazareno Delucca",
-               "y" : 2
-            },
-            {
-               "name" : "Roger Bell West",
-               "y" : 4,
-               "drilldown" : "Roger Bell West"
-            },
-            {
-               "drilldown" : "Ruben Westerberg",
-               "y" : 4,
-               "name" : "Ruben Westerberg"
-            },
-            {
-               "name" : "Ryan Thompson",
-               "drilldown" : "Ryan Thompson",
-               "y" : 5
-            },
-            {
-               "name" : "Steven Wilson",
-               "drilldown" : "Steven Wilson",
-               "y" : 2
-            }
-         ]
-      }
-   ],
-   "xAxis" : {
-      "type" : "category"
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 039"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 9] Last updated at 2019-12-19 23:28:40 GMT"
+   "chart" : {
+      "type" : "column"
    },
    "plotOptions" : {
       "series" : {
+         "borderWidth" : 0,
          "dataLabels" : {
             "enabled" : 1,
             "format" : "{point.y}"
-         },
-         "borderWidth" : 0
+         }
       }
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 2e62960045..94971e3e25 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,24 +1,6 @@
 {
-   "chart" : {
-      "type" : "column"
-   },
-   "yAxis" : {
-      "min" : 0,
-      "title" : {
-         "text" : null
-      }
-   },
-   "legend" : {
-      "enabled" : "false"
-   },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
-   },
    "subtitle" : {
-      "text" : "Last updated at 2019-12-19 23:28:51 GMT"
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge Contributions - 2019"
+      "text" : "Last updated at 2019-12-19 23:38:18 GMT"
    },
    "xAxis" : {
       "type" : "category",
@@ -29,35 +11,53 @@
          }
       }
    },
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
+   "chart" : {
+      "type" : "column"
+   },
    "series" : [
       {
-         "name" : "Contributions",
          "data" : [
             [
                "Blog",
-               415
+               416
             ],
             [
                "Perl 5",
-               1604
+               1606
             ],
             [
                "Perl 6",
-               962
+               964
             ]
          ],
          "dataLabels" : {
-            "format" : "{point.y:.0f}",
             "y" : 10,
-            "align" : "right",
             "color" : "#FFFFFF",
-            "rotation" : -90,
+            "enabled" : "true",
+            "align" : "right",
+            "format" : "{point.y:.0f}",
             "style" : {
                "fontFamily" : "Verdana, sans-serif",
                "fontSize" : "13px"
             },
-            "enabled" : "true"
-         }
+            "rotation" : -90
+         },
+         "name" : "Contributions"
       }
-   ]
+   ],
+   "yAxis" : {
+      "title" : {
+         "text" : null
+      },
+      "min" : 0
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge Contributions - 2019"
+   },
+   "legend" : {
+      "enabled" : "false"
+   }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 0d6b8b3368..3a40413e59 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,76 +1,78 @@
 {
    "series" : [
       {
+         "name" : "Perl Weekly Challenge Languages",
+         "colorByPoint" : "true",
          "data" : [
             {
-               "drilldown" : "001",
+               "name" : "#001",
                "y" : 140,
-               "name" : "#001"
+               "drilldown" : "001"
             },
             {
-               "y" : 108,
                "name" : "#002",
+               "y" : 108,
                "drilldown" : "002"
             },
             {
+               "drilldown" : "003",
                "y" : 71,
-               "name" : "#003",
-               "drilldown" : "003"
+               "name" : "#003"
             },
             {
                "name" : "#004",
-               "y" : 91,
-               "drilldown" : "004"
+               "drilldown" : "004",
+               "y" : 91
             },
             {
-               "y" : 71,
                "name" : "#005",
-               "drilldown" : "005"
+               "drilldown" : "005",
+               "y" : 71
             },
             {
                "drilldown" : "006",
-               "name" : "#006",
-               "y" : 48
+               "y" : 48,
+               "name" : "#006"
             },
             {
-               "drilldown" : "007",
                "y" : 56,
+               "drilldown" : "007",
                "name" : "#007"
             },
             {
-               "drilldown" : "008",
                "name" : "#008",
-               "y" : 70
+               "y" : 70,
+               "drilldown" : "008"
             },
             {
                "drilldown" : "009",
-               "name" : "#009",
-               "y" : 68
+               "y" : 68,
+               "name" : "#009"
             },
             {
                "y" : 60,
-               "name" : "#010",
-               "drilldown" : "010"
+               "drilldown" : "010",
+               "name" : "#010"
             },
             {
                "drilldown" : "011",
-               "name" : "#011",
-               "y" : 79
+               "y" : 79,
+               "name" : "#011"
             },
             {
-               "name" : "#012",
                "y" : 83,
-               "drilldown" : "012"
+               "drilldown" : "012",
+               "name" : "#012"
             },
             {
-               "name" : "#013",
+               "drilldown" : "013",
                "y" : 76,
-               "drilldown" : "013"
+               "name" : "#013"
             },
             {
                "name" : "#014",
-               "y" : 96,
-               "drilldown" : "014"
+               "drilldown" : "014",
+               "y" : 96
             },
             {
                "drilldown" : "015",
@@ -78,14 +80,14 @@
                "name" : "#015"
             },
             {
-               "name" : "#016",
                "y" : 66,
-               "drilldown" : "016"
+               "drilldown" : "016",
+               "name" : "#016"
             },
             {
+               "y" : 79,
                "drilldown" : "017",
-               "name" : "#017",
-               "y" : 79
+               "name" : "#017"
             },
             {
                "drilldown" : "018",
@@ -93,9 +95,9 @@
                "name" : "#018"
             },
             {
+               "name" : "#019",
                "drilldown" : "019",
-               "y" : 95,
-               "name" : "#019"
+               "y" : 95
             },
             {
                "drilldown" : "020",
@@ -108,24 +110,24 @@
                "drilldown" : "021"
             },
             {
-               "drilldown" : "022",
                "name" : "#022",
+               "drilldown" : "022",
                "y" : 63
             },
             {
-               "y" : 91,
                "name" : "#023",
-               "drilldown" : "023"
+               "drilldown" : "023",
+               "y" : 91
             },
             {
-               "y" : 70,
                "name" : "#024",
-               "drilldown" : "024"
+               "drilldown" : "024",
+               "y" : 70
             },
             {
+               "name" : "#025",
                "drilldown" : "025",
-               "y" : 55,
-               "name" : "#025"
+               "y" : 55
             },
             {
                "name" : "#026",
@@ -134,77 +136,106 @@
             },
             {
                "y" : 58,
-               "name" : "#027",
-               "drilldown" : "027"
+               "drilldown" : "027",
+               "name" : "#027"
             },
             {
-               "drilldown" : "028",
                "y" : 78,
+               "drilldown" : "028",
                "name" : "#028"
             },
             {
                "name" : "#029",
-               "y" : 77,
-               "drilldown" : "029"
+               "drilldown" : "029",
+               "y" : 77
             },
             {
+               "y" : 115,
                "drilldown" : "030",
-               "name" : "#030",
-               "y" : 115
+               "name" : "#030"
             },
             {
-               "drilldown" : "031",
                "name" : "#031",
-               "y" : 87
+               "y" : 87,
+               "drilldown" : "031"
             },
             {
-               "y" : 92,
                "name" : "#032",
+               "y" : 92,
                "drilldown" : "032"
             },
             {
-               "drilldown" : "033",
                "name" : "#033",
-               "y" : 108
+               "y" : 108,
+               "drilldown" : "033"
             },
             {
-               "y" : 60,
                "name" : "#034",
-               "drilldown" : "034"
+               "drilldown" : "034",
+               "y" : 60
             },
             {
                "drilldown" : "035",
-               "name" : "#035",
-               "y" : 60
+               "y" : 60,
+               "name" : "#035"
             },
             {
-               "drilldown" : "036",
                "name" : "#036",
+               "drilldown" : "036",
                "y" : 61
             },
             {
+               "drilldown" : "037",
                "y" : 62,
-               "name" : "#037",
-               "drilldown" : "037"
+               "name" : "#037"
             },
             {
-               "drilldown" : "038",
                "name" : "#038",
+               "drilldown" : "038",
                "y" : 59
             },
             {
-               "y" : 27,
                "name" : "#039",
-               "drilldown" : "039"
+               "drilldown" : "039",
+               "y" : 32
             }
-         ],
-         "colorByPoint" : "true",
-         "name" : "Perl Weekly Challenge Languages"
+         ]
       }
    ],
+   "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 2019-12-19 23:38:18 GMT"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         }
+      }
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge Language"
+   },
    "drilldown" : {
       "series" : [
          {
+            "id" : "001",
+            "name" : "001",
             "data" : [
                [
                   "Perl 5",
@@ -218,9 +249,7 @@
                   "Blog",
                   11
                ]
-            ],
-            "name" : "001",
-            "id" : "001"
+            ]
          },
          {
             "data" : [
@@ -237,10 +266,12 @@
                   9
                ]
             ],
-            "id" : "002",
-            "name" : "002"
+            "name" : "002",
+            "id" : "002"
          },
          {
+            "id" : "003",
+            "name" : "003",
             "data" : [
                [
                   "Perl 5",
@@ -254,9 +285,7 @@
                   "Blog",
                   9
                ]
-            ],
-            "id" : "003",
-            "name" : "003"
+            ]
          },
          {
             "data" : [
@@ -309,12 +338,10 @@
                   7
                ]
             ],
-            "name" : "006",
-            "id" : "006"
+            "id" : "006",
+            "name" : "006"
          },
          {
-            "name" : "007",
-            "id" : "007",
             "data" : [
                [
                   "Perl 5",
@@ -328,9 +355,13 @@
                   "Blog",
                   10
                ]
-            ]
+            ],
+            "name" : "007",
+            "id" : "007"
          },
          {
+            "id" : "008",
+            "name" : "008",
             "data" : [
                [
                   "Perl 5",
@@ -344,9 +375,7 @@
                   "Blog",
                   12
                ]
-            ],
-            "id" : "008",
-            "name" : "008"
+            ]
          },
          {
             "id" : "009",
@@ -367,6 +396,8 @@
             ]
          },
          {
+            "id" : "010",
+            "name" : "010",
             "data" : [
                [
                   "Perl 5",
@@ -380,9 +411,7 @@
                   "Blog",
                   11
                ]
-            ],
-            "name" : "010",
-            "id" : "010"
+            ]
          },
          {
             "data" : [
@@ -403,6 +432,8 @@
             "id" : "011"
          },
          {
+            "id" : "012",
+            "name" : "012",
             "data" : [
                [
                   "Perl 5",
@@ -416,9 +447,7 @@
                   "Blog",
                   11
                ]
-            ],
-            "name" : "012",
-            "id" : "012"
+            ]
          },
          {
             "data" : [
@@ -457,8 +486,6 @@
             "id" : "014"
          },
          {
-            "id" : "015",
-            "name" : "015",
             "data" : [
                [
                   "Perl 5",
@@ -472,9 +499,13 @@
                   "Blog",
                   15
                ]
-            ]
+            ],
+            "id" : "015",
+            "name" : "015"
          },
          {
+            "id" : "016",
+            "name" : "016",
             "data" : [
                [
                   "Perl 5",
@@ -488,13 +519,9 @@
                   "Blog",
                   12
                ]
-            ],
-            "id" : "016",
-            "name" : "016"
+            ]
          },
          {
-            "id" : "017",
-            "name" : "017",
             "data" : [
                [
                   "Perl 5",
@@ -508,7 +535,9 @@
                   "Blog",
                   12
                ]
-            ]
+            ],
+            "id" : "017",
+            "name" : "017"
          },
          {
             "id" : "018",
@@ -529,8 +558,6 @@
             ]
          },
          {
-            "id" : "019",
-            "name" : "019",
             "data" : [
                [
                   "Perl 5",
@@ -544,11 +571,11 @@
                   "Blog",
                   13
                ]
-            ]
+            ],
+            "name" : "019",
+            "id" : "019"
          },
          {
-            "name" : "020",
-            "id" : "020",
             "data" : [
                [
                   "Perl 5",
@@ -562,7 +589,9 @@
                   "Blog",
                   13
                ]
-            ]
+            ],
+            "id" : "020",
+            "name" : "020"
          },
          {