- Added solutions by Lubos Kolouch.

11 files changed, 863 insertions, 615 deletions

diff --git a/challenge-015/lubos-kolouch/perl5/ch-1.pl b/challenge-015/lubos-kolouch/perl5/ch-1.pl
new file mode 100644
index 0000000000..4dd16bcb1c
--- /dev/null
+++ b/challenge-015/lubos-kolouch/perl5/ch-1.pl
@@ -0,0 +1,91 @@
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: 2019_15_1.pl
+#
+#        USAGE: ./2019_15_1.pl
+#
+#  DESCRIPTION: Perl Weekly challenge w15 #1
+#               Write a script to generate first 10 strong and weak prime numbers.
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Lubos Kolouch
+# ORGANIZATION:
+#      VERSION: 1.0
+#      CREATED: 07/02/2019 09:47:38 PM
+#     REVISION: ---
+#===============================================================================
+
+use warnings;
+use strict;
+use feature qw{ say };
+
+my @strong_primes;
+my @weak_primes;
+
+# let's remember the previous and the next primes
+# it's not necessary to remember all of them
+
+my $last_prime =2;
+my $current_prime;
+my $next_prime;
+
+# simple prime check
+sub is_prime {
+    my $candidate = shift;
+
+    for my $n ( 2 .. int( sqrt($candidate) ) ) {
+
+        # if can be divided, no luck...
+        return 0 if ( $candidate % $n == 0 );
+    }
+
+    #cool, a prime!
+    return 1;
+}
+
+my $n = 2;
+while (1)
+{
+    $n++;
+
+    next unless is_prime($n);
+
+    # first run is like:
+    # last - 2 current - ? next - ?
+
+    unless ($current_prime) {
+        $current_prime = $n;
+        next;
+    }
+
+    # next runs are like :
+    # last - 2 current - 3 next - ?
+    # we need last - 2 current - 3 next - 5
+    # let's assign next prime and test the current one
+    $next_prime = $n;
+
+    push @strong_primes, $current_prime if $current_prime > ($last_prime + $next_prime)/2 and scalar @strong_primes < 10;
+    push @weak_primes, $current_prime if $current_prime < ($last_prime + $next_prime)/2 and scalar @weak_primes < 10;
+
+    # ok now let's shift to
+    # last - 3 current - 5
+    $last_prime = $current_prime;
+    $current_prime = $n;
+
+    last if (scalar @strong_primes > 9) and (scalar @weak_primes > 9);
+}
+
+say 'Strong primes: '. join ',', @strong_primes;
+say 'Weak primes: '. join ',', @weak_primes;
+
+
+use Test::More;
+
+is( is_prime(5), 1, 'test if prime 1' );
+is( is_prime(4), 0, 'test if prime 4');
+
+done_testing();
diff --git a/challenge-015/lubos-kolouch/perl5/ch-2.pl b/challenge-015/lubos-kolouch/perl5/ch-2.pl
new file mode 100644
index 0000000000..8937618042
--- /dev/null
+++ b/challenge-015/lubos-kolouch/perl5/ch-2.pl
@@ -0,0 +1,142 @@
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: 2019_15_2.pl
+#
+#        USAGE: ./2019_15_2.pl
+#
+#  DESCRIPTION: Perl Weekly challenge w15 #2
+#  Write a script to implement Vigenère cipher. The script should be able
+#  decode and encode. Checkout wiki page for more information.
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Lubos Kolouch
+# ORGANIZATION:
+#      VERSION: 1.0
+#      CREATED: 07/02/2019 09:47:38 PM
+#     REVISION: ---
+#===============================================================================
+
+use warnings;
+use strict;
+use feature qw{ say };
+
+sub encode_letter {
+    my ($plain, $key) = @_;
+
+    # calculate the shift for plain text
+    my $shift_plain = ord($plain) - ord('A');
+
+    # calculate the shift for key
+    my $shift_key = ord($key) - ord('A');
+
+    # calculate the resulting ASCII value
+    my $result =  ord('A') + ($shift_plain  +  $shift_key) % (ord('Z')-ord('A')+1);
+
+    return chr($result);
+}
+
+sub decode_letter {
+    my ($key, $cypher) = @_;
+
+    # calculate the shift for key
+    my $shift_key = ord($key) - ord('A');
+
+    # calculate the shift for cypher text
+    my $shift_cypher = ord($cypher) - ord('A');
+
+    # calculate the resulting ASCII value
+    my $result =  ord('A') + ($shift_cypher  -  $shift_key) % (ord('Z')-ord('A')+1);
+
+    return chr($result);
+}
+
+
+sub  encode_text {
+    my $text = shift;
+    my $key = shift;
+
+    # convert the text to arrays for convenience, could be also done as string
+    # with length
+
+    my @text_a = split //, $text;
+    my @key_a = split //, $key;
+
+    my $result;
+
+    for (0.. scalar @text_a -1) {
+        my $letter = $text_a[$_];
+
+        # encode each letter
+        $result .= encode_letter($letter, $key_a[$_ % scalar @key_a]);
+    }
+
+    return $result;
+
+}
+
+sub  decode_text {
+    my $text = shift;
+    my $key = shift;
+
+    # convert the text to arrays for convenience, could be also done as string
+    # with length
+
+    my @text_a = split //, $text;
+    my @key_a = split //, $key;
+
+    my $result;
+
+    for (0.. scalar @text_a -1) {
+        my $letter = $text_a[$_];
+
+        # decode each letter
+        $result .= decode_letter($key_a[$_ % scalar @key_a], $letter);
+    }
+
+    return $result;
+
+}
+
+# ------ MAIN STARTS HERE --------
+my ($text, $key, $direction) = @ARGV;
+
+die 'No text passed. Usage: script TEXT KEY DIRECTION("d" or "e")' unless $text;
+die 'No key passed. Usage: script TEXT KEY DIRECTION("d" or "e")' unless $key;
+die 'No direction passed. Usage: script TEXT KEY DIRECTION("d" or "e")' unless $direction;
+
+$text = uc($text);
+$key=uc($key);
+$direction = uc($direction);
+
+die 'direction must be d or e' unless $direction eq 'D' or $direction eq  'E';
+
+say encode_text($text, $key) if ($direction eq 'E');
+say decode_text($text, $key) if ($direction eq 'D');
+
+# ----------- TESTS ----------
+use Test::More;
+
+is( encode_letter('A','A'),'A', 'test encode A-A' );
+is( encode_letter('A','S'),'S', 'test encode A-S' );
+is( encode_letter('C','C'),'E', 'test encode C-C' );
+is( encode_letter('F','M'),'R', 'test encode F-M' );
+is( encode_letter('O','Y'),'M', 'test encode O-Y' );
+is( encode_letter('Y','L'),'J', 'test encode Y-L' );
+is( encode_letter('Z','Z'),'Y', 'test encode Z-Z' );
+
+is( decode_letter('A','A'),'A', 'test decode A-A' );
+is( decode_letter('A','S'),'S', 'test decode A-S' );
+is( decode_letter('C','C'),'A', 'test decode C-C' );
+is( decode_letter('F','M'),'H', 'test decode F-M' );
+is( decode_letter('O','Y'),'K', 'test decode O-Y' );
+is( decode_letter('Y','L'),'N', 'test decode Y-L' );
+is( decode_letter('Z','Z'),'A', 'test decode Z-Z' );
+is( encode_text('ATTACKATDAWN', 'LEMON'), 'LXFOPVEFRNHR', 'Test encode ATTACKATDAWN LEMON');
+is( decode_text('LXFOPVEFRNHR', 'LEMON'), 'ATTACKATDAWN', 'Test decode ATTACKATDAWN LEMON');
+isnt( decode_text('LXFOPVEFRNHR', 'LEMON'), 'DTTACKATDAWN', 'Test decode ATTACKATDAWN LEMON');
+isnt( encode_text('ATTACKATDAWN', 'LEMON'), 'OXFOPVEFRNHR', 'Test encode ATTACKATDAWN LEMON');
+done_testing();
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 6e09eb991b..73b8c1879d 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,116 +1,33 @@
 {
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
-   "tooltip" : {
-      "followPointer" : 1,
-      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
-      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>"
+   "legend" : {
+      "enabled" : 0
    },
    "title" : {
       "text" : "Perl Weekly Challenge - 015"
    },
-   "legend" : {
-      "enabled" : 0
+   "xAxis" : {
+      "type" : "category"
    },
-   "series" : [
-      {
-         "data" : [
-            {
-               "y" : 2,
-               "name" : "Andrezgz",
-               "drilldown" : "Andrezgz"
-            },
-            {
-               "y" : 4,
-               "name" : "Dave Jacoby",
-               "drilldown" : "Dave Jacoby"
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Duane Powell",
-               "name" : "Duane Powell"
-            },
-            {
-               "drilldown" : "E. Choroba",
-               "name" : "E. Choroba",
-               "y" : 3
-            },
-            {
-               "name" : "Guillermo Ramos",
-               "drilldown" : "Guillermo Ramos",
-               "y" : 3
-            },
-            {
-               "y" : 2,
-               "name" : "Gustavo Chaves",
-               "drilldown" : "Gustavo Chaves"
-            },
-            {
-               "drilldown" : "Joelle Maslak",
-               "name" : "Joelle Maslak",
-               "y" : 2
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Kevin Colyer",
-               "name" : "Kevin Colyer"
-            },
-            {
-               "y" : 5,
-               "drilldown" : "Laurent Rosenfeld",
-               "name" : "Laurent Rosenfeld"
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Roger Bell West",
-               "name" : "Roger Bell West"
-            },
-            {
-               "name" : "Ruben Westerberg",
-               "drilldown" : "Ruben Westerberg",
-               "y" : 4
-            },
-            {
-               "name" : "Simon Miner",
-               "drilldown" : "Simon Miner",
-               "y" : 1
-            },
-            {
-               "y" : 4,
-               "name" : "Steven Wilson",
-               "drilldown" : "Steven Wilson"
-            },
-            {
-               "y" : 2,
-               "name" : "Veesh Goldman",
-               "drilldown" : "Veesh Goldman"
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Walt Mankowski",
-               "name" : "Walt Mankowski"
-            }
-         ],
-         "colorByPoint" : 1,
-         "name" : "Perl Weekly Challenge - 015"
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
       }
-   ],
+   },
    "drilldown" : {
       "series" : [
          {
-            "id" : "Andrezgz",
             "name" : "Andrezgz",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "id" : "Andrezgz"
          },
          {
+            "id" : "Dave Jacoby",
+            "name" : "Dave Jacoby",
             "data" : [
                [
                   "Perl 5",
@@ -120,23 +37,19 @@
                   "Blog",
                   1
                ]
-            ],
-            "name" : "Dave Jacoby",
-            "id" : "Dave Jacoby"
+            ]
          },
          {
+            "id" : "Duane Powell",
+            "name" : "Duane Powell",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ],
-            "name" : "Duane Powell",
-            "id" : "Duane Powell"
+            ]
          },
          {
-            "name" : "E. Choroba",
-            "id" : "E. Choroba",
             "data" : [
                [
                   "Perl 5",
@@ -146,30 +59,31 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "name" : "E. Choroba",
+            "id" : "E. Choroba"
          },
          {
+            "id" : "Guillermo Ramos",
+            "name" : "Guillermo Ramos",
             "data" : [
                [
                   "Perl 5",
                   3
                ]
-            ],
-            "id" : "Guillermo Ramos",
-            "name" : "Guillermo Ramos"
+            ]
          },
          {
+            "name" : "Gustavo Chaves",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "name" : "Gustavo Chaves",
             "id" : "Gustavo Chaves"
          },
          {
-            "name" : "Joelle Maslak",
             "id" : "Joelle Maslak",
             "data" : [
                [
@@ -180,21 +94,20 @@
                   "Perl 6",
                   1
                ]
-            ]
+            ],
+            "name" : "Joelle Maslak"
          },
          {
             "name" : "Kevin Colyer",
-            "id" : "Kevin Colyer",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
-            ]
+            ],
+            "id" : "Kevin Colyer"
          },
          {
-            "name" : "Laurent Rosenfeld",
-            "id" : "Laurent Rosenfeld",
             "data" : [
                [
                   "Perl 5",
@@ -208,7 +121,19 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "name" : "Laurent Rosenfeld",
+            "id" : "Laurent Rosenfeld"
+         },
+         {
+            "id" : "Lubos Kolouch",
+            "data" : [
+               [
+                  "Perl 5",
+                  2
+               ]
+            ],
+            "name" : "Lubos Kolouch"
          },
          {
             "id" : "Roger Bell West",
@@ -235,18 +160,17 @@
             ]
          },
          {
+            "name" : "Simon Miner",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
             ],
-            "id" : "Simon Miner",
-            "name" : "Simon Miner"
+            "id" : "Simon Miner"
          },
          {
             "name" : "Steven Wilson",
-            "id" : "Steven Wilson",
             "data" : [
                [
                   "Perl 5",
@@ -256,30 +180,42 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "Steven Wilson"
          },
          {
-            "id" : "Veesh Goldman",
             "name" : "Veesh Goldman",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "id" : "Veesh Goldman"
          },
          {
-            "id" : "Walt Mankowski",
-            "name" : "Walt Mankowski",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "name" : "Walt Mankowski",
+            "id" : "Walt Mankowski"
          }
       ]
    },
+   "subtitle" : {
+      "text" : "[Champions: 16] Last updated at 2019-07-04 17:53:01 GMT"
+   },
+   "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
+   },
+   "chart" : {
+      "type" : "column"
+   },
    "plotOptions" : {
       "series" : {
          "borderWidth" : 0,
@@ -289,13 +225,92 @@
          }
       }
    },
-   "chart" : {
-      "type" : "column"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 15] Last updated at 2019-07-04 11:18:34 GMT"
-   },
-   "xAxis" : {
-      "type" : "category"
-   }
+   "series" : [
+      {
+         "data" : [
+            {
+               "y" : 2,
+               "name" : "Andrezgz",
+               "drilldown" : "Andrezgz"
+            },
+            {
+               "y" : 4,
+               "name" : "Dave Jacoby",
+               "drilldown" : "Dave Jacoby"
+            },
+            {
+               "name" : "Duane Powell",
+               "y" : 2,
+               "drilldown" : "Duane Powell"
+            },
+            {
+               "name" : "E. Choroba",
+               "y" : 3,
+               "drilldown" : "E. Choroba"
+            },
+            {
+               "y" : 3,
+               "name" : "Guillermo Ramos",
+               "drilldown" : "Guillermo Ramos"
+            },
+            {
+               "drilldown" : "Gustavo Chaves",
+               "y" : 2,
+               "name" : "Gustavo Chaves"
+            },
+            {
+               "drilldown" : "Joelle Maslak",
+               "y" : 2,
+               "name" : "Joelle Maslak"
+            },
+            {
+               "drilldown" : "Kevin Colyer",
+               "y" : 2,
+               "name" : "Kevin Colyer"
+            },
+            {
+               "y" : 5,
+               "name" : "Laurent Rosenfeld",
+               "drilldown" : "Laurent Rosenfeld"
+            },
+            {
+               "drilldown" : "Lubos Kolouch",
+               "y" : 2,
+               "name" : "Lubos Kolouch"
+            },
+            {
+               "name" : "Roger Bell West",
+               "y" : 2,
+               "drilldown" : "Roger Bell West"
+            },
+            {
+               "y" : 4,
+               "name" : "Ruben Westerberg",
+               "drilldown" : "Ruben Westerberg"
+            },
+            {
+               "y" : 1,
+               "name" : "Simon Miner",
+               "drilldown" : "Simon Miner"
+            },
+            {
+               "y" : 4,
+               "name" : "Steven Wilson",
+               "drilldown" : "Steven Wilson"
+            },
+            {
+               "y" : 2,
+               "name" : "Veesh Goldman",
+               "drilldown" : "Veesh Goldman"
+            },
+            {
+               "y" : 2,
+               "name" : "Walt Mankowski",
+               "drilldown" : "Walt Mankowski"
+            }
+         ],
+         "name" : "Perl Weekly Challenge - 015",
+         "colorByPoint" : 1
+      }
+   ]
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 50966abcd1..335a6132ab 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,18 +1,17 @@
 {
    "series" : [
       {
-         "name" : "Contributions",
          "dataLabels" : {
-            "format" : "{point.y:.0f}",
+            "rotation" : -90,
             "color" : "#FFFFFF",
+            "format" : "{point.y:.0f}",
             "y" : 10,
-            "rotation" : -90,
             "enabled" : "true",
+            "align" : "right",
             "style" : {
-               "fontSize" : "13px",
-               "fontFamily" : "Verdana, sans-serif"
-            },
-            "align" : "right"
+               "fontFamily" : "Verdana, sans-serif",
+               "fontSize" : "13px"
+            }
          },
          "data" : [
             [
@@ -21,23 +20,30 @@
             ],
             [
                "Perl 5",
-               619
+               621
             ],
             [
                "Perl 6",
                346
             ]
-         ]
+         ],
+         "name" : "Contributions"
       }
    ],
+   "subtitle" : {
+      "text" : "Last updated at 2019-07-04 17:53:14 GMT"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge Contributions - 2019"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
    "yAxis" : {
-      "min" : 0,
       "title" : {
          "text" : null
-      }
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2019-07-04 11:18:47 GMT"
+      },
+      "min" : 0
    },
    "xAxis" : {
       "type" : "category",
@@ -51,13 +57,7 @@
    "chart" : {
       "type" : "column"
    },
-   "title" : {
-      "text" : "Perl Weekly Challenge Contributions - 2019"
-   },
    "tooltip" : {
       "pointFormat" : "<b>{point.y:.0f}</b>"
-   },
-   "legend" : {
-      "enabled" : "false"
    }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index c9b22fc331..015af955fd 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -2,15 +2,34 @@
    "legend" : {
       "enabled" : "false"
    },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "chart" : {
+      "type" : "column"
+   },
    "tooltip" : {
-      "followPointer" : "true",
       "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
-      "headerFormat" : "<span style=\"font-size:11px\"></span>"
+      "headerFormat" : "<span style=\"font-size:11px\"></span>",
+      "followPointer" : "true"
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         }
+      }
    },
    "drilldown" : {
       "series" : [
          {
-            "name" : "001",
             "id" : "001",
             "data" : [
                [
@@ -25,11 +44,10 @@
                   "Blog",
                   10
                ]
-            ]
+            ],
+            "name" : "001"
          },
          {
-            "id" : "002",
-            "name" : "002",
             "data" : [
                [
                   "Perl 5",
@@ -43,10 +61,11 @@
                   "Blog",
                   9
                ]
-            ]
+            ],
+            "id" : "002",
+            "name" : "002"
          },
          {
-            "name" : "003",
             "id" : "003",
             "data" : [
                [
@@ -61,10 +80,10 @@
                   "Blog",
                   8
                ]
-            ]
+            ],
+            "name" : "003"
          },
          {
-            "id" : "004",
             "name" : "004",
             "data" : [
                [
@@ -79,11 +98,10 @@
                   "Blog",
                   9
                ]
-            ]
+            ],
+            "id" : "004"
          },
          {
-            "id" : "005",
-            "name" : "005",
             "data" : [
                [
                   "Perl 5",
@@ -97,11 +115,11 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "id" : "005",
+            "name" : "005"
          },
          {
-            "id" : "006",
-            "name" : "006",
             "data" : [
                [
                   "Perl 5",
@@ -115,11 +133,11 @@
                   "Blog",
                   6
                ]
-            ]
+            ],
+            "id" : "006",
+            "name" : "006"
          },
          {
-            "name" : "007",
-            "id" : "007",
             "data" : [
                [
                   "Perl 5",
@@ -133,7 +151,9 @@
                   "Blog",
                   8
                ]
-            ]
+            ],
+            "id" : "007",
+            "name" : "007"
          },
          {
             "name" : "008",
@@ -154,8 +174,6 @@
             ]
          },
          {
-            "id" : "009",
-            "name" : "009",
             "data" : [
                [
                   "Perl 5",
@@ -169,9 +187,12 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "id" : "009",
+            "name" : "009"
          },
          {
+            "id" : "010",
             "data" : [
                [
                   "Perl 5",
@@ -186,10 +207,10 @@
                   9
                ]
             ],
-            "name" : "010",
-            "id" : "010"
+            "name" : "010"
          },
          {
+            "name" : "011",
             "data" : [
                [
                   "Perl 5",
@@ -204,10 +225,11 @@
                   8
                ]
             ],
-            "name" : "011",
             "id" : "011"
          },
          {
+            "name" : "012",
+            "id" : "012",
             "data" : [
                [
                   "Perl 5",
@@ -221,13 +243,10 @@
                   "Blog",
                   9
                ]
-            ],
-            "name" : "012",
-            "id" : "012"
+            ]
          },
          {
             "name" : "013",
-            "id" : "013",
             "data" : [
                [
                   "Perl 5",
@@ -241,9 +260,11 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "id" : "013"
          },
          {
+            "id" : "014",
             "data" : [
                [
                   "Perl 5",
@@ -258,16 +279,14 @@
                   13
                ]
             ],
-            "id" : "014",
             "name" : "014"
          },
          {
-            "name" : "015",
             "id" : "015",
             "data" : [
                [
                   "Perl 5",
-                  29
+                  31
                ],
                [
                   "Perl 6",
@@ -277,33 +296,32 @@
                   "Blog",
                   4
                ]
-            ]
+            ],
+            "name" : "015"
          }
       ]
    },
    "series" : [
       {
-         "name" : "Perl Weekly Challenge Languages",
-         "colorByPoint" : "true",
          "data" : [
             {
+               "name" : "#001",
                "y" : 123,
-               "drilldown" : "001",
-               "name" : "#001"
+               "drilldown" : "001"
             },
             {
-               "y" : 104,
                "drilldown" : "002",
+               "y" : 104,
                "name" : "#002"
             },
             {
                "y" : 66,
-               "drilldown" : "003",
-               "name" : "#003"
+               "name" : "#003",
+               "drilldown" : "003"
             },
             {
-               "y" : 84,
                "drilldown" : "004",
+               "y" : 84,
                "name" : "#004"
             },
             {
@@ -312,34 +330,34 @@
                "drilldown" : "005"
             },
             {
-               "drilldown" : "006",
                "name" : "#006",
-               "y" : 47
+               "y" : 47,
+               "drilldown" : "006"
             },
             {
-               "name" : "#007",
                "drilldown" : "007",
+               "name" : "#007",
                "y" : 54
             },
             {
-               "drilldown" : "008",
                "name" : "#008",
-               "y" : 67
+               "y" : 67,
+               "drilldown" : "008"
             },
             {
-               "name" : "#009",
                "drilldown" : "009",
-               "y" : 65
+               "y" : 65,
+               "name" : "#009"
             },
             {
                "name" : "#010",
-               "drilldown" : "010",
-               "y" : 58
+               "y" : 58,
+               "drilldown" : "010"
             },
             {
-               "drilldown" : "011",
                "name" : "#011",
-               "y" : 77
+               "y" : 77,
+               "drilldown" : "011"
             },
             {
                "drilldown" : "012",
@@ -347,47 +365,29 @@
                "y" : 81
             },
             {
+               "y" : 74,
                "name" : "#013",
-               "drilldown" : "013",
-               "y" : 74
+               "drilldown" : "013"
             },
             {
+               "y" : 94,
                "name" : "#014",
-               "drilldown" : "014",
-               "y" : 94
+               "drilldown" : "014"
             },
             {
+               "y" : 42,
                "name" : "#015",
-               "drilldown" : "015",
-               "y" : 40
+               "drilldown" : "015"
             }
-         ]
+         ],
+         "colorByPoint" : "true",
+         "name" : "Perl Weekly Challenge Languages"
       }
    ],
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
-   "chart" : {
-      "type" : "column"
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-07-04 17:53:14 GMT"
    },
    "title" : {
       "text" : "Perl Weekly Challenge Language"
-   },
-   "plotOptions" : {
-      "series" : {
-         "borderWidth" : 0,
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         }
-      }
-   },
-   "xAxis" : {
-      "type" : "category"
-   },
-   "subtitle" : {
-      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-07-04 11:18:47 GMT"
    }
 }
diff --git a/stats/pwc-leaders.json b/stats/pwc-leaders.json
index fb56f800aa..ef1bd610f5