- Added solutions by Abigail.

7 files changed, 217 insertions, 175 deletions

diff --git a/challenge-004/abigail/perl5/ch-1.pl b/challenge-004/abigail/perl5/ch-1.pl
new file mode 100644
index 0000000000..b6b556b801
--- /dev/null
+++ b/challenge-004/abigail/perl5/ch-1.pl
@@ -0,0 +1 @@
+say 2 * atan2 (1,0)
diff --git a/challenge-004/abigail/perl5/ch-2.pl b/challenge-004/abigail/perl5/ch-2.pl
new file mode 100644
index 0000000000..7d252aa886
--- /dev/null
+++ b/challenge-004/abigail/perl5/ch-2.pl
@@ -0,0 +1,26 @@
+use 5.026;
+
+use strict;
+use warnings;
+no  warnings 'syntax';
+
+#
+# Assume the list of letters are the arguments. Read the list
+# of words from STDIN
+#
+my %letters;
+$letters {$_} ++ for "@ARGV" =~ /[a-z]/g;
+
+WORD: while (<STDIN>) {
+        chomp;
+        next if /[^a-z]/;
+        my %l;
+        $l {$_} ++ for split //;
+        foreach my $c (keys %l) {
+            no warnings 'uninitialized';
+            next WORD if $letters {$c} < $l {$c};
+        }
+        say;
+}
+
+__END__
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 465f60009b..e5f454f450 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,58 +1,17 @@
 {
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
-   "series" : [
-      {
-         "data" : [
-            {
-               "name" : "Francis Whittle",
-               "drilldown" : "Francis Whittle",
-               "y" : 1
-            },
-            {
-               "name" : "Dr James A. Smith",
-               "drilldown" : "Dr James A. Smith",
-               "y" : 4
-            },
-            {
-               "drilldown" : "Kivanc Yazan",
-               "name" : "Kivanc Yazan",
-               "y" : 1
-            },
-            {
-               "y" : 1,
-               "drilldown" : "Maxim Kolodyazhny",
-               "name" : "Maxim Kolodyazhny"
-            }
-         ],
-         "colorByPoint" : 1,
-         "name" : "Champions"
-      }
-   ],
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         },
-         "borderWidth" : 0
-      }
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 4] Last updated at 2019-04-15 14:42:47 GMT"
-   },
-   "xAxis" : {
-      "type" : "category"
-   },
    "drilldown" : {
       "series" : [
          {
+            "name" : "Abigail",
+            "data" : [
+               [
+                  "Perl 5",
+                  2
+               ]
+            ],
+            "id" : "Abigail"
+         },
+         {
             "id" : "Francis Whittle",
             "data" : [
                [
@@ -64,6 +23,7 @@
          },
          {
             "name" : "Dr James A. Smith",
+            "id" : "Dr James A. Smith",
             "data" : [
                [
                   "Perl 5",
@@ -73,18 +33,17 @@
                   "Perl 6",
                   2
                ]
-            ],
-            "id" : "Dr James A. Smith"
+            ]
          },
          {
             "id" : "Kivanc Yazan",
-            "name" : "Kivanc Yazan",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
-            ]
+            ],
+            "name" : "Kivanc Yazan"
          },
          {
             "data" : [
@@ -93,20 +52,76 @@
                   1
                ]
             ],
-            "name" : "Maxim Kolodyazhny",
-            "id" : "Maxim Kolodyazhny"
+            "id" : "Maxim Kolodyazhny",
+            "name" : "Maxim Kolodyazhny"
          }
       ]
    },
-   "tooltip" : {
-      "followPointer" : 1,
-      "pointerFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
-      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>"
+   "title" : {
+      "text" : "Perl Weekly Challenge - 004"
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "subtitle" : {
+      "text" : "[Champions: 5] Last updated at 2019-04-15 16:39:07 GMT"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
    },
    "legend" : {
       "enabled" : 0
    },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 004"
+   "xAxis" : {
+      "type" : "category"
+   },
+   "series" : [
+      {
+         "colorByPoint" : 1,
+         "name" : "Champions",
+         "data" : [
+            {
+               "drilldown" : "Abigail",
+               "y" : 2,
+               "name" : "Abigail"
+            },
+            {
+               "drilldown" : "Francis Whittle",
+               "name" : "Francis Whittle",
+               "y" : 1
+            },
+            {
+               "drilldown" : "Dr James A. Smith",
+               "y" : 4,
+               "name" : "Dr James A. Smith"
+            },
+            {
+               "drilldown" : "Kivanc Yazan",
+               "name" : "Kivanc Yazan",
+               "y" : 1
+            },
+            {
+               "drilldown" : "Maxim Kolodyazhny",
+               "name" : "Maxim Kolodyazhny",
+               "y" : 1
+            }
+         ]
+      }
+   ],
+   "tooltip" : {
+      "followPointer" : 1,
+      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
+      "pointerFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>"
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         }
+      }
    }
 }
diff --git a/stats/pwc-summary-1-30.json b/stats/pwc-summary-1-30.json
index f793172d2e..a42a3b3c61 100644
--- a/stats/pwc-summary-1-30.json
+++ b/stats/pwc-summary-1-30.json
@@ -1,18 +1,55 @@
 {
-   "chart" : {
-      "type" : "column"
+   "yAxis" : {
+      "min" : 0,
+      "title" : {
+         "text" : ""
+      }
    },
    "tooltip" : {
       "shared" : 1,
       "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>"
    },
+   "xAxis" : {
+      "categories" : [
+         "Abigail",
+         "Adam Russell",
+         "Ailbhe Tweedie",
+         "Alex Daniel",
+         "Alexander Karelas",
+         "Alexey Melezhik",
+         "Andrezgz",
+         "Antonio Gamiz",
+         "Arne Sommer",
+         "Arpad Toth",
+         "Athanasius",
+         "Aubrey Quarcoo",
+         "Bill Palmer",
+         "Bob Kleemann",
+         "Clive Holloway",
+         "Daniel Mantovani",
+         "Dave Cross",
+         "Dave Jacoby",
+         "David Kayal",
+         "Doug Schrag",
+         "Duncan C. White",
+         "Eddy HS",
+         "Finley",
+         "Francis Whittle",
+         "Fred Zinn",
+         "Freddie B",
+         "Gustavo Chaves",
+         "Jacques Guinnebault",
+         "Jaime Corchado",
+         "Jaldhar H. Vyas"
+      ]
+   },
    "title" : {
       "text" : "Perl Weekly Challenge - 2019"
    },
    "series" : [
       {
          "data" : [
-            0,
+            2,
             6,
             3,
             0,
@@ -81,52 +118,15 @@
          ]
       }
    ],
-   "xAxis" : {
-      "categories" : [
-         "Abigail",
-         "Adam Russell",
-         "Ailbhe Tweedie",
-         "Alex Daniel",
-         "Alexander Karelas",
-         "Alexey Melezhik",
-         "Andrezgz",
-         "Antonio Gamiz",
-         "Arne Sommer",
-         "Arpad Toth",
-         "Athanasius",
-         "Aubrey Quarcoo",
-         "Bill Palmer",
-         "Bob Kleemann",
-         "Clive Holloway",
-         "Daniel Mantovani",
-         "Dave Cross",
-         "Dave Jacoby",
-         "David Kayal",
-         "Doug Schrag",
-         "Duncan C. White",
-         "Eddy HS",
-         "Finley",
-         "Francis Whittle",
-         "Fred Zinn",
-         "Freddie B",
-         "Gustavo Chaves",
-         "Jacques Guinnebault",
-         "Jaime Corchado",
-         "Jaldhar H. Vyas"
-      ]
+   "subtitle" : {
+      "text" : "[Champions: 30] Last updated at 2019-04-15 16:39:07 GMT"
    },
    "plotOptions" : {
       "column" : {
          "stacking" : "percent"
       }
    },
-   "yAxis" : {
-      "title" : {
-         "text" : ""
-      },
-      "min" : 0
-   },
-   "subtitle" : {
-      "text" : "[Champions: 30] Last updated at 2019-04-15 14:42:47 GMT"
+   "chart" : {
+      "type" : "column"
    }
 }
diff --git a/stats/pwc-summary-31-60.json b/stats/pwc-summary-31-60.json
index cd98346340..9b03d96812 100644
--- a/stats/pwc-summary-31-60.json
+++ b/stats/pwc-summary-31-60.json
@@ -1,28 +1,4 @@
 {
-   "title" : {
-      "text" : "Perl Weekly Challenge - 2019"
-   },
-   "tooltip" : {
-      "shared" : 1,
-      "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>"
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 30] Last updated at 2019-04-15 14:42:47 GMT"
-   },
-   "plotOptions" : {
-      "column" : {
-         "stacking" : "percent"
-      }
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : ""
-      },
-      "min" : 0
-   },
    "series" : [
       {
          "data" : [
@@ -60,7 +36,6 @@
          "name" : "Perl 5"
       },
       {
-         "name" : "Perl 6",
          "data" : [
             8,
             0,
@@ -92,9 +67,21 @@
             0,
             0,
             2
-         ]
+         ],
+         "name" : "Perl 6"
       }
    ],
+   "plotOptions" : {
+      "column" : {
+         "stacking" : "percent"
+      }
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "subtitle" : {
+      "text" : "[Champions: 30] Last updated at 2019-04-15 16:39:07 GMT"
+   },
    "xAxis" : {
       "categories" : [
          "Dr James A. Smith",
@@ -128,5 +115,18 @@
          "Prajith P",
          "Robert Gratza"
       ]
+   },
+   "tooltip" : {
+      "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>",
+      "shared" : 1
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 2019"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : ""
+      },
+      "min" : 0
    }
 }
diff --git a/stats/pwc-summary-61-90.json b/stats/pwc-summary-61-90.json
index 3d9c3fe5d1..a766893a02 100644
--- a/stats/pwc-summary-61-90.json
+++ b/stats/pwc-summary-61-90.json
@@ -1,17 +1,17 @@
 {
+   "plotOptions" : {
+      "column" : {
+         "stacking" : "percent"
+      }
+   },
    "chart" : {
       "type" : "column"
    },
-   "tooltip" : {
-      "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>",
-      "shared" : 1
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 2019"
+   "subtitle" : {
+      "text" : "[Champions: 12] Last updated at 2019-04-15 16:39:07 GMT"
    },
    "series" : [
       {
-         "name" : "Perl 5",
          "data" : [
             4,
             0,
@@ -25,7 +25,8 @@
             2,
             3,
             1
-         ]
+         ],
+         "name" : "Perl 5"
       },
       {
          "data" : [
@@ -45,6 +46,15 @@
          "name" : "Perl 6"
       }
    ],
+   "yAxis" : {
+      "min" : 0,
+      "title" : {
+         "text" : ""
+      }
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 2019"
+   },
    "xAxis" : {
       "categories" : [
          "Ruben Westerberg",
@@ -61,18 +71,8 @@
          "William Gilmore"
       ]
    },
-   "subtitle" : {
-      "text" : "[Champions: 12] Last updated at 2019-04-15 14:42:47 GMT"
-   },
-   "plotOptions" : {
-      "column" : {
-         "stacking" : "percent"
-      }
-   },
-   "yAxis" : {
-      "min" : 0,
-      "title" : {
-         "text" : ""
-      }
+   "tooltip" : {
+      "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>",
+      "shared" : 1
    }
 }
diff --git a/stats/pwc-summary.json b/stats/pwc-summary.json
index 55d5fca900..94d9a1d50b 100644
--- a/stats/pwc-summary.json
+++ b/stats/pwc-summary.json
@@ -1,13 +1,18 @@
 {
+   "subtitle" : {
+      "text" : "[Champions: 72] Last updated at 2019-04-15 16:39:07 GMT"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : ""
+      },
+      "min" : 0
+   },
    "title" : {
       "text" : "Perl Weekly Challenge - 2019"
    },
-   "tooltip" : {
-      "shared" : 1,
-      "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 72] Last updated at 2019-04-15 14:42:47 GMT"
+   "chart" : {
+      "type" : "column"
    },
    "xAxis" : {
       "categories" : [
@@ -85,15 +90,11 @@
          "William Gilmore"
       ]
    },
-   "plotOptions" : {
-      "column" : {
-         "stacking" : "percent"
-      }
-   },
    "series" : [
       {
+         "name" : "Perl 5",
          "data" : [
-            0,
+            2,
             6,
             3,
             0,
@@ -165,8 +166,7 @@
             2,
             3,
             1
-         ],
-         "name" : "Perl 5"
+         ]
       },
       {
          "data" : [
@@ -246,13 +246,13 @@
          "name" : "Perl 6"
       }
    ],
-   "chart" : {
-      "type" : "column"
-   },
-   "yAxis" : {
-      "min" : 0,
-      "title" : {
-         "text" : ""
+   "plotOptions" : {
+      "column" : {
+         "stacking" : "percent"
       }
+   },
+   "tooltip" : {
+      "shared" : 1,
+      "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>"
    }
 }