- Added solutions by Guillermo Ramos.

12 files changed, 790 insertions, 648 deletions

diff --git a/challenge-015/guillermo-ramos/perl5/ch-1.pl b/challenge-015/guillermo-ramos/perl5/ch-1.pl
new file mode 100644
index 0000000000..b5ea460954
--- /dev/null
+++ b/challenge-015/guillermo-ramos/perl5/ch-1.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/env perl
+#
+# Write a script to generate first 10 strong and weak prime numbers.
+# (https://en.wikipedia.org/wiki/Strong_prime)
+################################################################################
+
+use strict;
+use warnings;
+
+use List::Util qw<any max>;
+
+my $LIMIT = 10;
+
+# Already found strong/weak primes
+my (@strong, @weak);
+
+# Last known prime; will be pushed to either @strong or @weak once the next
+# prime is found and we can compare the closeness
+my $last_prime = 2;
+
+while (@strong < $LIMIT || @weak < $LIMIT) {
+    # Find next prime
+    my $candidate = $last_prime+1;
+    $candidate++ while any { $candidate % $_ == 0 } @strong, @weak;
+
+    # Now we know whether $last_prime is strong or not; push it correspondingly
+    my $max_prime = max($strong[-1] || 0, $weak[-1] || 0);
+    if ($candidate - $last_prime < $last_prime - ($max_prime || $last_prime)) {
+        push @strong, $last_prime;
+    } else {
+        push @weak, $last_prime;
+    }
+
+    # Candidate becomes the last known prime
+    $last_prime = $candidate;
+}
+
+print "Strong: @strong[0..$LIMIT-1]\nWeak: @weak[0..$LIMIT-1]\n";
diff --git a/challenge-015/guillermo-ramos/perl5/ch-2.pl b/challenge-015/guillermo-ramos/perl5/ch-2.pl
new file mode 100644
index 0000000000..b43e6bf1cd
--- /dev/null
+++ b/challenge-015/guillermo-ramos/perl5/ch-2.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/env perl
+#
+# Write a script to implement Vigenère cipher.
+# (https://en.wikipedia.org/wiki/Vigen%C3%A8re_cipher)
+################################################################################
+
+use strict;
+use warnings;
+
+sub vigenere {
+    # Direction: encrypt (1) vs decrypt (-1)
+    my ($direction, $text, $key) = @_;
+
+    chomp $text;
+
+    my ($A, $Z) = (ord("a"), ord("z"));
+    my $OFFSET = $Z - $A + 1;
+
+    foreach my $i (0 .. length($text)-1) {
+        # Only process alpha characters (gets lowered before)
+        next unless substr($text, $i, 1) =~ /^[a-zA-Z]$/;
+
+        # Add/subtract the key character to the corresponding one in text
+        my $ord = ord(lc(substr($text, $i, 1))) +
+            $direction * (ord(substr($key, $i % length($key), 1)) - $A);
+
+        # Adjust if character got out of alpha range
+        $ord -= $OFFSET if $ord > $Z;
+        $ord += $OFFSET if $ord < $A;
+
+        substr($text, $i, 1) = chr($ord);
+    }
+    return $text;
+}
+
+sub encrypt { vigenere(1, @_); }
+sub decrypt { vigenere(-1, @_); }
+
+my $USAGE = "Usage: $0 (enc|dec) key\n";
+my $MODE = shift or die $USAGE;
+my $KEY = shift or die $USAGE;
+
+my $f;
+if ($MODE eq "enc") {
+    $f = \&encrypt;
+} elsif ($MODE eq "dec") {
+    $f = \&decrypt;
+} else {
+    die $USAGE;
+}
+
+while (<STDIN>) {
+    print $f->($_, $KEY), "\n";
+}
diff --git a/challenge-015/guillermo-ramos/perl5/ch-3.pl b/challenge-015/guillermo-ramos/perl5/ch-3.pl
new file mode 100644
index 0000000000..41980b18af
--- /dev/null
+++ b/challenge-015/guillermo-ramos/perl5/ch-3.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/env perl
+#
+# Write a script to use Language Detection API
+# (https://detectlanguage.com/)
+################################################################################
+
+use strict;
+use warnings;
+
+use HTTP::Request;
+use LWP::UserAgent;
+use JSON qw<encode_json decode_json>;
+
+# API key read from environment
+my $APIKEY = $ENV{'DETECTLANGUAGEAPI_KEY'} or die "DETECTLANGUAGEAPI_KEY not defined";
+my $TEXT = join " ", @ARGV or die "Usage: $0 <text>\n";
+
+my $ua = LWP::UserAgent->new;
+$ua->agent("gramos's script for perlweeklychallenge.org");
+my $uri = "https://ws.detectlanguage.com/0.2/detect";
+my @headers = ("Authorization" => "Bearer $APIKEY",
+               "Content-Type" => "application/json");
+my $body = encode_json { q => $TEXT };
+
+my $response = $ua->request(HTTP::Request->new("POST", $uri, \@headers, $body));
+
+# Check for errors in API request
+die "Unknown error: " . $response->message if $response->is_error();
+
+# Extract detection list
+my $detections = (decode_json $response->content)->{'data'}{'detections'};
+
+my $det = $detections->[0] or die "No detections :(";
+printf "Language: '%s' (confidence = %s), %sreliable\n",
+    $det->{language}, $det->{confidence}, $det->{isReliable} ? "" : "not ";
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index dae8d238bb..f8b312ba4e 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,9 +1,69 @@
 {
-   "xAxis" : {
-      "type" : "category"
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 015"
+   },
+   "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/>"
+   },
+   "series" : [
+      {
+         "name" : "Perl Weekly Challenge - 015",
+         "colorByPoint" : 1,
+         "data" : [
+            {
+               "y" : 3,
+               "name" : "Dave Jacoby",
+               "drilldown" : "Dave Jacoby"
+            },
+            {
+               "drilldown" : "Duane Powell",
+               "name" : "Duane Powell",
+               "y" : 1
+            },
+            {
+               "name" : "Guillermo Ramos",
+               "y" : 3,
+               "drilldown" : "Guillermo Ramos"
+            },
+            {
+               "drilldown" : "Roger Bell West",
+               "name" : "Roger Bell West",
+               "y" : 2
+            },
+            {
+               "y" : 1,
+               "name" : "Simon Miner",
+               "drilldown" : "Simon Miner"
+            },
+            {
+               "name" : "Walt Mankowski",
+               "y" : 2,
+               "drilldown" : "Walt Mankowski"
+            }
+         ]
+      }
+   ],
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         },
+         "borderWidth" : 0
+      }
    },
    "subtitle" : {
-      "text" : "[Champions: 5] Last updated at 2019-07-01 18:00:43 GMT"
+      "text" : "[Champions: 6] Last updated at 2019-07-01 18:19:50 GMT"
    },
    "drilldown" : {
       "series" : [
@@ -18,22 +78,32 @@
                   1
                ]
             ],
-            "id" : "Dave Jacoby",
-            "name" : "Dave Jacoby"
+            "name" : "Dave Jacoby",
+            "id" : "Dave Jacoby"
          },
          {
-            "name" : "Duane Powell",
             "id" : "Duane Powell",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
+            ],
+            "name" : "Duane Powell"
+         },
+         {
+            "id" : "Guillermo Ramos",
+            "name" : "Guillermo Ramos",
+            "data" : [
+               [
+                  "Perl 5",
+                  3
+               ]
             ]
          },
          {
-            "name" : "Roger Bell West",
             "id" : "Roger Bell West",
+            "name" : "Roger Bell West",
             "data" : [
                [
                   "Perl 5",
@@ -43,85 +113,30 @@
          },
          {
             "name" : "Simon Miner",
-            "id" : "Simon Miner",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
-            ]
+            ],
+            "id" : "Simon Miner"
          },
          {
             "name" : "Walt Mankowski",
-            "id" : "Walt Mankowski",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "id" : "Walt Mankowski"
          }
       ]
    },
-   "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/>"
+   "xAxis" : {
+      "type" : "category"
    },
    "legend" : {
       "enabled" : 0
-   },
-   "series" : [
-      {
-         "name" : "Perl Weekly Challenge - 015",
-         "colorByPoint" : 1,
-         "data" : [
-            {
-               "drilldown" : "Dave Jacoby",
-               "y" : 3,
-               "name" : "Dave Jacoby"
-            },
-            {
-               "drilldown" : "Duane Powell",
-               "name" : "Duane Powell",
-               "y" : 1
-            },
-            {
-               "y" : 2,
-               "name" : "Roger Bell West",
-               "drilldown" : "Roger Bell West"
-            },
-            {
-               "y" : 1,
-               "name" : "Simon Miner",
-               "drilldown" : "Simon Miner"
-            },
-            {
-               "y" : 2,
-               "name" : "Walt Mankowski",
-               "drilldown" : "Walt Mankowski"
-            }
-         ]
-      }
-   ],
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "enabled" : 1,
-            "format" : "{point.y}"
-         },
-         "borderWidth" : 0
-      }
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 015"
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index f529d5a8c8..6e2b9375bb 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,26 +1,48 @@
 {
-   "title" : {
-      "text" : "Perl Weekly Challenge Contributions - 2019"
-   },
    "yAxis" : {
+      "min" : 0,
       "title" : {
          "text" : null
+      }
+   },
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge Contributions - 2019"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
+   "subtitle" : {
+      "text" : "Last updated at 2019-07-01 18:20:00 GMT"
+   },
+   "xAxis" : {
+      "labels" : {
+         "style" : {
+            "fontFamily" : "Verdana, sans-serif",
+            "fontSize" : "13px"
+         }
       },
-      "min" : 0
+      "type" : "category"
+   },
+   "chart" : {
+      "type" : "column"
    },
    "series" : [
       {
+         "name" : "Contributions",
          "dataLabels" : {
-            "format" : "{point.y:.0f}",
-            "rotation" : -90,
-            "enabled" : "true",
             "align" : "right",
+            "format" : "{point.y:.0f}",
             "color" : "#FFFFFF",
-            "y" : 10,
+            "rotation" : -90,
             "style" : {
                "fontSize" : "13px",
                "fontFamily" : "Verdana, sans-serif"
-            }
+            },
+            "enabled" : "true",
+            "y" : 10
          },
          "data" : [
             [
@@ -29,35 +51,13 @@
             ],
             [
                "Perl 5",
-               593
+               596
             ],
             [
                "Perl 6",
                339
             ]
-         ],
-         "name" : "Contributions"
-      }
-   ],
-   "chart" : {
-      "type" : "column"
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2019-07-01 18:00:59 GMT"
-   },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
-   },
-   "legend" : {
-      "enabled" : "false"
-   },
-   "xAxis" : {
-      "type" : "category",
-      "labels" : {
-         "style" : {
-            "fontSize" : "13px",
-            "fontFamily" : "Verdana, sans-serif"
-         }
+         ]
       }
-   }
+   ]
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index a0b220967b..b63bbd35c3 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,7 +1,110 @@
 {
+   "series" : [
+      {
+         "colorByPoint" : "true",
+         "data" : [
+            {
+               "y" : 123,
+               "drilldown" : "001",
+               "name" : "#001"
+            },
+            {
+               "y" : 104,
+               "drilldown" : "002",
+               "name" : "#002"
+            },
+            {
+               "y" : 66,
+               "drilldown" : "003",
+               "name" : "#003"
+            },
+            {
+               "y" : 84,
+               "drilldown" : "004",
+               "name" : "#004"
+            },
+            {
+               "name" : "#005",
+               "y" : 66,
+               "drilldown" : "005"
+            },
+            {
+               "drilldown" : "006",
+               "y" : 47,
+               "name" : "#006"
+            },
+            {
+               "name" : "#007",
+               "drilldown" : "007",
+               "y" : 54
+            },
+            {
+               "y" : 67,
+               "drilldown" : "008",
+               "name" : "#008"
+            },
+            {
+               "name" : "#009",
+               "drilldown" : "009",
+               "y" : 62
+            },
+            {
+               "y" : 58,
+               "drilldown" : "010",
+               "name" : "#010"
+            },
+            {
+               "name" : "#011",
+               "drilldown" : "011",
+               "y" : 75
+            },
+            {
+               "y" : 81,
+               "drilldown" : "012",
+               "name" : "#012"
+            },
+            {
+               "y" : 74,
+               "drilldown" : "013",
+               "name" : "#013"
+            },
+            {
+               "y" : 94,
+               "drilldown" : "014",
+               "name" : "#014"
+            },
+            {
+               "y" : 12,
+               "drilldown" : "015",
+               "name" : "#015"
+            }
+         ],
+         "name" : "Perl Weekly Challenge Languages"
+      }
+   ],
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-07-01 18:20:00 GMT"
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         }
+      }
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
    "drilldown" : {
       "series" : [
          {
+            "name" : "001",
+            "id" : "001",
             "data" : [
                [
                   "Perl 5",
@@ -15,9 +118,7 @@
                   "Blog",
                   10
                ]
-            ],
-            "name" : "001",
-            "id" : "001"
+            ]
          },
          {
             "data" : [
@@ -34,11 +135,10 @@
                   9
                ]
             ],
-            "name" : "002",
-            "id" : "002"
+            "id" : "002",
+            "name" : "002"
          },
          {
-            "id" : "003",
             "name" : "003",
             "data" : [
                [
@@ -53,10 +153,10 @@
                   "Blog",
                   8
                ]
-            ]
+            ],
+            "id" : "003"
          },
          {
-            "id" : "004",
             "name" : "004",
             "data" : [
                [
@@ -71,9 +171,12 @@
                   "Blog",
                   9
                ]
-            ]
+            ],
+            "id" : "004"
          },
          {
+            "name" : "005",
+            "id" : "005",
             "data" : [
                [
                   "Perl 5",
@@ -87,13 +190,11 @@
                   "Blog",
                   11
                ]
-            ],
-            "name" : "005",
-            "id" : "005"
+            ]
          },
          {
-            "id" : "006",
             "name" : "006",
+            "id" : "006",
             "data" : [
                [
                   "Perl 5",
@@ -110,7 +211,6 @@
             ]
          },
          {
-            "id" : "007",
             "name" : "007",
             "data" : [
                [
@@ -125,10 +225,12 @@
                   "Blog",
                   8
                ]
-            ]
+            ],
+            "id" : "007"
          },
          {
             "name" : "008",
+            "id" : "008",
             "data" : [
                [
                   "Perl 5",
@@ -142,10 +244,11 @@
                   "Blog",
                   9
                ]
-            ],
-            "id" : "008"
+            ]
          },
          {
+            "name" : "009",
+            "id" : "009",
             "data" : [
                [
                   "Perl 5",
@@ -159,13 +262,11 @@
                   "Blog",
                   11
                ]
-            ],
-            "name" : "009",
-            "id" : "009"
+            ]
          },
          {
-            "id" : "010",
             "name" : "010",
+            "id" : "010",
             "data" : [
                [
                   "Perl 5",
@@ -182,6 +283,7 @@
             ]
          },
          {
+            "id" : "011",
             "data" : [
                [
                   "Perl 5",
@@ -196,8 +298,7 @@
                   8
                ]
             ],
-            "name" : "011",
-            "id" : "011"
+            "name" : "011"
          },
          {
             "data" : [
@@ -214,8 +315,8 @@
                   9
                ]
             ],
-            "name" : "012",
-            "id" : "012"
+            "id" : "012",
+            "name" : "012"
          },
          {
             "data" : [
@@ -232,10 +333,11 @@
                   11
                ]
             ],
-            "name" : "013",
-            "id" : "013"
+            "id" : "013",
+            "name" : "013"
          },
          {
+            "id" : "014",
             "data" : [
                [
                   "Perl 5",
@@ -250,16 +352,13 @@
                   13
                ]
             ],
-            "name" : "014",
-            "id" : "014"
+            "name" : "014"
          },
          {
-            "id" : "015",
-            "name" : "015",
             "data" : [
                [
                   "Perl 5",
-                  8
+                  11
                ],
                [
                   "Perl 6",
@@ -269,124 +368,25 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "015",
+            "name" : "015"
          }
       ]
    },
-   "chart" : {
-      "type" : "column"
-   },
-   "subtitle" : {
-      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-07-01 18:00:59 GMT"
+   "title" : {
+      "text" : "Perl Weekly Challenge Language"
    },
    "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"
+      "followPointer" : "true",
+      "headerFormat" : "<span style=\"font-size:11px\"></span>"
    },
    "yAxis" : {
       "title" : {
          "text" : "Total Solutions"
       }
    },
-   "series" : [
-      {
-         "name" : "Perl Weekly Challenge Languages",
-         "data" : [
-            {
-               "y" : 123,
-               "drilldown" : "001",
-               "name" : "#001"
-            },
-            {
-               "y" : 104,
-               "name" : "#002",
-               "drilldown" : "002"
-            },
-            {
-               "y" : 66,
-               "drilldown" : "003",
-               "name" : "#003"
-            },
-            {
-               "y" : 84,
-               "drilldown" : "004",
-               "name" : "#004"
-            },
-            {
-               "drilldown" : "005",
-               "name" : "#005",
-               "y" : 66
-            },
-            {
-               "drilldown" : "006",
-               "name" : "#006",
-               "y" : 47
-            },
-            {
-               "name" : "#007",
-               "drilldown" : "007",
-               "y" : 54
-            },
-            {
-               "y" : 67,
-               "name" : "#008",
-               "drilldown" : "008"
-            },
-            {
-               "drilldown" : "009",
-               "name" : "#009",
-               "y" : 62
-            },
-            {
-               "drilldown" : "010",
-               "name" : "#010",
-               "y" : 58
-            },
-            {
-               "y" : 75,
-               "name" : "#011",
-               "drilldown" : "011"
-            },
-            {
-               "drilldown" : "012",
-               "name" : "#012",
-               "y" : 81
-            },
-            {
-               "y" : 74,
-               "name" : "#013",
-               "drilldown" : "013"
-            },
-            {
-               "y" : 94,
-               "drilldown" : "014",
-               "name" : "#014"
-            },
-            {
-               "drilldown" : "015",
-               "name" : "#015",
-               "y" : 9
-            }
-         ],
-         "colorByPoint" : "true"
-      }
-   ],
-   "title" : {
-      "text" : "Perl Weekly Challenge Language"
-   },
-   "xAxis" : {
-      "type" : "category"
-   },
-   "plotOptions" : {
-      "series" : {
-         "borderWidth" : 0,
-         "dataLabels" : {
-            "enabled" : 1,
-            "format" : "{point.y}"
-         }
-      }
-   },
    "legend" : {
       "enabled" : "false"
    }
diff --git a/stats/pwc-leaders.json b/stats/pwc-leaders.json
index c1eaa71a30..11727d5138 100644
--- a/stats/pwc-leaders.json
+++ b/stats/pwc-leaders.json
@@ -2,43 +2,35 @@
    "title" : {
       "text" : "Perl Weekly Challenge Leaders (TOP 50)"
    },
-   "xAxis" : {
-      "type" : "category"
-   },
-   "legend" : {
-      "enabled" : "false"
-   },
-   "subtitle" : {
-      "text" : "Click the columns to drilldown the score breakdown. Last updated at 2019-07-01 18:00:52 GMT"
-   },
    "series" : [
       {
+         "name" : "Perl Weekly Challenge Leaders",
          "colorByPoint" : "true",
          "data" : [
             {
-               "name" : "#1: Joelle Maslak",
                "drilldown" : "Joelle Maslak",
+               "name" : "#1: Joelle Maslak",
                "y" : 148
             },
             {
-               "drilldown" : "Laurent Rosenfeld",
                "y" : 142,
-               "name" : "#2: Laurent Rosenfeld"
+               "name" : "#2: Laurent Rosenfeld",
+               "drilldown" : "Laurent Rosenfeld"
             },
             {
-               "drilldown" : "Jaldhar H. Vyas",
                "y" : 116,
-               "name" : "#3: Jaldhar H. Vyas"
+               "name" : "#3: Jaldhar H. Vyas",
+               "drilldown" : "Jaldhar H. Vyas"
             },
             {
-               "drilldown" : "Ruben Westerberg",
                "name" : "#4: Ruben Westerberg",
+               "drilldown" : "Ruben Westerberg",
                "y" : 100
             },
             {
+               "name" : "#5: Adam Russell",
                "drilldown" : "Adam Russell",
-               "y" : 84,
-               "name" : "#5: Adam Russell"
+               "y" : 84
             },
             {
                "y" : 76,
@@ -46,59 +38,59 @@
                "name" : "#6: Arne Sommer"
             },
             {
-               "drilldown" : "Athanasius",
+               "y" : 76,
                "name" : "#7: Athanasius",
-               "y" : 76
+               "drilldown" : "Athanasius"
             },
             {
-               "drilldown" : "Kian-Meng Ang",
                "name" : "#8: Kian-Meng Ang",
+               "drilldown" : "Kian-Meng Ang",
                "y" : 70
             },
             {
-               "name" : "#9: Simon Proctor",
                "drilldown" : "Simon Proctor",
+               "name" : "#9: Simon Proctor",
                "y" : 70
             },
             {
+               "y" : 64,
                "name" : "#10: Dave Jacoby",
-               "drilldown" : "Dave Jacoby",
-               "y" : 64
+               "drilldown" : "Dave Jacoby"
             },
             {
+               "y" : 62,
                "drilldown" : "Francis Whittle",
-               "name" : "#11: Francis Whittle",
-               "y" : 62
+               "name" : "#11: Francis Whittle"
             },
             {
                "drilldown" : "E. Choroba",
-               "y" : 60,
-               "name" : "#12: E. Choroba"
+               "name" : "#12: E. Choroba",
+               "y" : 60
             },
             {
                "drilldown" : "Gustavo Chaves",
-               "y" : 58,
-               "name" : "#13: Gustavo Chaves"
+               "name" : "#13: Gustavo Chaves",
+               "y" : 58
             },
             {
-               "drilldown" : "Andrezgz",
                "name" : "#14: Andrezgz",
+               "drilldown" : "Andrezgz",
                "y" : 54
             },
             {
-               "name" : "#15: Jo Christian Oterhals",
+               "y" : 48,
                "drilldown" : "Jo Christian Oterhals",
-               "y" : 48
+               "name" : "#15: Jo Christian Oterhals"
             },
             {
-               "name" : "#16: Daniel Mantovani",
+               "y" : 44,
                "drilldown" : "Daniel Mantovani",
-               "y" : 44
+               "name" : "#16: Daniel Mantovani"
             },
             {
-               "drilldown" : "Dr James A. Smith",
                "y" : 44,
-               "name" : "#17: Dr James A. Smith"
+               "name" : "#17: Dr James A. Smith",
+               "drilldown" : "Dr James A. Smith"
             },
             {
                "drilldown" : "Duncan C. White",
@@ -106,53 +98,53 @@
                "y" : 44
             },
             {
-               "y" : 40,
+               "name" : "#19: Yozen Hernandez",
                "drilldown" : "Yozen Hernandez",
-               "name" : "#19: Yozen Hernandez"
+               "y" : 40
             },
             {
-               "y" : 38,
+               "name" : "#20: Steven Wilson",
                "drilldown" : "Steven Wilson",
-               "name" : "#20: Steven Wilson"
+               "y" : 38
             },
             {
-               "y" : 36,
                "drilldown" : "Feng Chang",
-               "name" : "#21: Feng Chang"
+               "name" : "#21: Feng Chang",
+               "y" : 36
+            },
+            {
+               "drilldown" : "Guillermo Ramos",
+               "name" : "#22: Guillermo Ramos",
+               "y" : 34
             },
             {
-               "y" : 32,
+               "name" : "#23: Mark Senn",
                "drilldown" : "Mark Senn",
-               "name" : "#22: Mark Senn"
+               "y" : 32
             },
             {
+               "name" : "#24: Nick Logan",
                "drilldown" : "Nick Logan",
-               "name" : "#23: Nick Logan",
                "y" : 32
             },
             {
                "y" : 28,
-               "drilldown" : "Guillermo Ramos",
-               "name" : "#24: Guillermo Ramos"
-            },
-            {
-               "name" : "#25: Lars Balker",
                "drilldown" : "Lars Balker",
-               "y" : 28
+               "name" : "#25: Lars Balker"
             },
             {
-               "y" : 26,
+               "name" : "#26: Ozzy",
                "drilldown" : "Ozzy",
-               "name" : "#26: Ozzy"
+               "y" : 26
             },
             {
                "drilldown" : "Maxim Nechaev",
-               "y" : 24,
-               "name" : "#27: Maxim Nechaev"
+               "name" : "#27: Maxim Nechaev",
+               "y" : 24
             },
             {
-               "drilldown" : "Alicia Bielsa",