- Updated solutions by Arne Sommer.

7 files changed, 208 insertions, 185 deletions

diff --git a/challenge-004/arne-sommer/perl6/ch-2-style-2.p6 b/challenge-004/arne-sommer/perl6/ch-2-style-2.p6
new file mode 100644
index 0000000000..eb1eb3f50e
--- /dev/null
+++ b/challenge-004/arne-sommer/perl6/ch-2-style-2.p6
@@ -0,0 +1,23 @@
+#! /usr/bin/env perl6
+
+unit sub MAIN ($word-file where $word-file.IO.r, *@letters where @letters.elems >= 1);
+
+my %words is SetHash;
+
+%words{$_.lc} = True for $word-file.IO.lines();
+
+my $max-length = %words.keys>>.chars.max;
+
+my %seen;
+
+for @letters.combinations: 1 .. $max-length -> $candidate
+{
+  my $word = $candidate.sort.join;
+  next if %seen{$word};
+  %seen{$word} = True;
+  say "seen $word";
+  for $word.comb.permutations.map(*.join).sort.unique -> $possible
+  {
+    say $possible if %words{$possible};
+  }
+}
diff --git a/challenge-004/arne-sommer/perl6/ch-2.p6 b/challenge-004/arne-sommer/perl6/ch-2.p6
index 3d65286eb7..fb1ba417e1 100755..100644
--- a/challenge-004/arne-sommer/perl6/ch-2.p6
+++ b/challenge-004/arne-sommer/perl6/ch-2.p6
@@ -21,7 +21,7 @@ my %seen;
 
 for @letters.combinations: 2 .. $max-length -> $candidate
 {
-  my $word = $candidate.join;
+  my $word = $candidate.sort.join;
   next if %seen{$word};
   %seen{$word} = True;
   
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 1b8d648b7b..d77a8cda71 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,60 +1,64 @@
 {
-   "title" : {
-      "text" : "Perl Weekly Challenge - 004"
+   "tooltip" : {
+      "pointerFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
+      "followPointer" : 1,
+      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>"
    },
    "drilldown" : {
       "series" : [
          {
-            "name" : "Abigail",
             "id" : "Abigail",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "name" : "Abigail"
          },
          {
             "name" : "Adam Russell",
-            "id" : "Adam Russell",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "id" : "Adam Russell"
          },
          {
+            "id" : "Arne Sommer",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
             ],
-            "id" : "Arne Sommer",
             "name" : "Arne Sommer"
          },
          {
+            "name" : "Athanasius",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "id" : "Athanasius",
-            "name" : "Athanasius"
+            "id" : "Athanasius"
          },
          {
-            "id" : "Francis Whittle",
             "name" : "Francis Whittle",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
-            ]
+            ],
+            "id" : "Francis Whittle"
          },
          {
+            "id" : "Dr James A. Smith",
+            "name" : "Dr James A. Smith",
             "data" : [
                [
                   "Perl 5",
@@ -64,11 +68,10 @@
                   "Perl 6",
                   2
                ]
-            ],
-            "name" : "Dr James A. Smith",
-            "id" : "Dr James A. Smith"
+            ]
          },
          {
+            "name" : "Jo Christian Oterhals",
             "data" : [
                [
                   "Perl 5",
@@ -79,12 +82,11 @@
                   2
                ]
             ],
-            "name" : "Jo Christian Oterhals",
             "id" : "Jo Christian Oterhals"
          },
          {
-            "name" : "Joelle Maslak",
             "id" : "Joelle Maslak",
+            "name" : "Joelle Maslak",
             "data" : [
                [
                   "Perl 6",
@@ -93,94 +95,90 @@
             ]
          },
          {
+            "id" : "John Barrett",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "name" : "John Barrett",
-            "id" : "John Barrett"
+            "name" : "John Barrett"
          },
          {
+            "name" : "Kivanc Yazan",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
             ],
-            "name" : "Kivanc Yazan",
             "id" : "Kivanc Yazan"
          },
          {
+            "id" : "Matt Latusek",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "id" : "Matt Latusek",
             "name" : "Matt Latusek"
          },
          {
+            "name" : "Maxim Kolodyazhny",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
             ],
-            "name" : "Maxim Kolodyazhny",
             "id" : "Maxim Kolodyazhny"
          }
       ]
    },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
    "plotOptions" : {
       "series" : {
          "borderWidth" : 0,
          "dataLabels" : {
-            "enabled" : 1,
-            "format" : "{point.y}"
+            "format" : "{point.y}",
+            "enabled" : 1
          }
       }
    },
-   "xAxis" : {
-      "type" : "category"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 12] Last updated at 2019-04-17 13:50:10 GMT"
-   },
-   "tooltip" : {
-      "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/>",
-      "followPointer" : 1
-   },
    "series" : [
       {
+         "colorByPoint" : 1,
+         "name" : "Champions",
          "data" : [
             {
-               "y" : 2,
                "name" : "Abigail",
+               "y" : 2,
                "drilldown" : "Abigail"
             },
             {
                "y" : 2,
-               "name" : "Adam Russell",
-               "drilldown" : "Adam Russell"
+               "drilldown" : "Adam Russell",
+               "name" : "Adam Russell"
             },
             {
-               "drilldown" : "Arne Sommer",
                "name" : "Arne Sommer",
+               "drilldown" : "Arne Sommer",
                "y" : 2
             },
             {
                "drilldown" : "Athanasius",
-               "name" : "Athanasius",
-               "y" : 2
+               "y" : 2,
+               "name" : "Athanasius"
             },
             {
-               "y" : 2,
                "name" : "Francis Whittle",
-               "drilldown" : "Francis Whittle"
+               "drilldown" : "Francis Whittle",
+               "y" : 2
             },
             {
                "name" : "Dr James A. Smith",
@@ -193,44 +191,46 @@
                "y" : 4
             },
             {
+               "y" : 1,
                "drilldown" : "Joelle Maslak",
-               "name" : "Joelle Maslak",
-               "y" : 1
+               "name" : "Joelle Maslak"
             },
             {
                "name" : "John Barrett",
-               "drilldown" : "John Barrett",
-               "y" : 2
+               "y" : 2,
+               "drilldown" : "John Barrett"
             },
             {
                "name" : "Kivanc Yazan",
-               "drilldown" : "Kivanc Yazan",
-               "y" : 1
+               "y" : 1,
+               "drilldown" : "Kivanc Yazan"
             },
             {
-               "name" : "Matt Latusek",
                "drilldown" : "Matt Latusek",
-               "y" : 2
+               "y" : 2,
+               "name" : "Matt Latusek"
             },
             {
                "y" : 1,
-               "name" : "Maxim Kolodyazhny",
-               "drilldown" : "Maxim Kolodyazhny"
+               "drilldown" : "Maxim Kolodyazhny",
+               "name" : "Maxim Kolodyazhny"
             }
-         ],
-         "colorByPoint" : 1,
-         "name" : "Champions"
+         ]
       }
    ],
    "legend" : {
       "enabled" : 0
    },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 004"
+   },
+   "subtitle" : {
+      "text" : "[Champions: 12] Last updated at 2019-04-17 14:50:37 GMT"
+   },
    "chart" : {
       "type" : "column"
    },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
+   "xAxis" : {
+      "type" : "category"
    }
 }
diff --git a/stats/pwc-summary-1-30.json b/stats/pwc-summary-1-30.json
index 05f8df589a..50ae9e7ec8 100644
--- a/stats/pwc-summary-1-30.json
+++ b/stats/pwc-summary-1-30.json
@@ -1,25 +1,4 @@
 {
-   "tooltip" : {
-      "shared" : 1,
-      "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 30] Last updated at 2019-04-17 13:50:10 GMT"
-   },
-   "plotOptions" : {
-      "column" : {
-         "stacking" : "percent"
-      }
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : ""
-      },
-      "min" : 0
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 2019"
-   },
    "xAxis" : {
       "categories" : [
          "Abigail",
@@ -54,8 +33,28 @@
          "Jaime Corchado"
       ]
    },
+   "chart" : {
+      "type" : "column"
+   },
+   "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: 30] Last updated at 2019-04-17 14:50:38 GMT"
+   },
+   "yAxis" : {
+      "min" : 0,
+      "title" : {
+         "text" : ""
+      }
+   },
    "series" : [
       {
+         "name" : "Perl 5",
          "data" : [
             2,
             8,
@@ -87,8 +86,7 @@
             3,
             0,
             2
-         ],
-         "name" : "Perl 5"
+         ]
       },
       {
          "data" : [
@@ -126,7 +124,9 @@
          "name" : "Perl 6"
       }
    ],
-   "chart" : {
-      "type" : "column"
+   "plotOptions" : {
+      "column" : {
+         "stacking" : "percent"
+      }
    }
 }
diff --git a/stats/pwc-summary-31-60.json b/stats/pwc-summary-31-60.json
index ec4bd42020..e0b5d6d14d 100644
--- a/stats/pwc-summary-31-60.json
+++ b/stats/pwc-summary-31-60.json
@@ -1,27 +1,61 @@
 {
+   "xAxis" : {
+      "categories" : [
+         "Jaldhar H. Vyas",
+         "Dr James A. Smith",
+         "Jeff",
+         "Jeremy Carman",
+         "Jim Bacon",
+         "JJ Merelo",
+         "Jo Christian Oterhals",
+         "Joelle Maslak",
+         "John Barrett",
+         "Juan Caballero",
+         "Khalid",
+         "Kian-Meng Ang",
+         "Kivanc Yazan",
+         "Lars Balker",
+         "Laurent Rosenfeld",
+         "Magnus Woldrich",
+         "Mark Senn",
+         "Martin Mugeni",
+         "Matt Latusek",
+         "Maxim Kolodyazhny",
+         "Michael Schaap",
+         "Neil Bowers",
+         "Nick Logan",
+         "Chenyf",
+         "Oleksii Tsvietnov",
+         "Ozzy",
+         "Pavel Jurca",
+         "Pete Houston",
+         "Philippe Bruhat",
+         "Prajith P"
+      ]
+   },
    "title" : {
       "text" : "Perl Weekly Challenge - 2019"
    },
-   "yAxis" : {
-      "min" : 0,
-      "title" : {
-         "text" : ""
-      }
+   "chart" : {
+      "type" : "column"
    },
-   "subtitle" : {
-      "text" : "[Champions: 30] Last updated at 2019-04-17 13:50:10 GMT"
+   "tooltip" : {
+      "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>",
+      "shared" : 1
    },
    "plotOptions" : {
       "column" : {
          "stacking" : "percent"
       }
    },
-   "tooltip" : {
-      "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>",
-      "shared" : 1
+   "subtitle" : {
+      "text" : "[Champions: 30] Last updated at 2019-04-17 14:50:38 GMT"
    },
-   "chart" : {
-      "type" : "column"
+   "yAxis" : {
+      "title" : {
+         "text" : ""
+      },
+      "min" : 0
    },
    "series" : [
       {
@@ -94,39 +128,5 @@
          ],
          "name" : "Perl 6"
       }
-   ],
-   "xAxis" : {
-      "categories" : [
-         "Jaldhar H. Vyas",
-         "Dr James A. Smith",
-         "Jeff",
-         "Jeremy Carman",
-         "Jim Bacon",
-         "JJ Merelo",
-         "Jo Christian Oterhals",
-         "Joelle Maslak",
-         "John Barrett",
-         "Juan Caballero",
-         "Khalid",
-         "Kian-Meng Ang",
-         "Kivanc Yazan",
-         "Lars Balker",
-         "Laurent Rosenfeld",
-         "Magnus Woldrich",
-         "Mark Senn",
-         "Martin Mugeni",
-         "Matt Latusek",
-         "Maxim Kolodyazhny",
-         "Michael Schaap",
-         "Neil Bowers",
-         "Nick Logan",
-         "Chenyf",
-         "Oleksii Tsvietnov",
-         "Ozzy",
-         "Pavel Jurca",
-         "Pete Houston",
-         "Philippe Bruhat",
-         "Prajith P"
-      ]
-   }
+   ]
 }
diff --git a/stats/pwc-summary-61-90.json b/stats/pwc-summary-61-90.json
index e75205a96d..c4afc33b43 100644
--- a/stats/pwc-summary-61-90.json
+++ b/stats/pwc-summary-61-90.json
@@ -1,27 +1,16 @@
 {
-   "xAxis" : {
-      "categories" : [
-         "Robert Gratza",
-         "Ruben Westerberg",
-         "Sean Meininger",
-         "Sergio Iglesias",
-         "Simon Proctor",
-         "Simon Reinhardt",
-         "Steve Rogerson",
-         "Steven Lembark",
-         "Steven Wilson",
-         "Tiago Stock",
-         "Tore Andersson",
-         "Veesh Goldman",
-         "William Gilmore"
-      ]
+   "tooltip" : {
+      "shared" : 1,
+      "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>"
    },
-   "chart" : {
-      "type" : "column"
+   "yAxis" : {
+      "title" : {
+         "text" : ""
+      },
+      "min" : 0
    },
    "series" : [
       {
-         "name" : "Perl 5",
          "data" : [
             2,
             4,
@@ -36,10 +25,10 @@
             2,
             3,
             1
-         ]
+         ],
+         "name" : "Perl 5"
       },
       {
-         "name" : "Perl 6",
          "data" : [
             2,
             4,
@@ -54,28 +43,39 @@
             0,
             0,
             0
-         ]
+         ],
+         "name" : "Perl 6"
       }
    ],
    "subtitle" : {
-      "text" : "[Champions: 13] Last updated at 2019-04-17 13:50:10 GMT"
+      "text" : "[Champions: 13] Last updated at 2019-04-17 14:50:38 GMT"
    },
    "plotOptions" : {
       "column" : {
          "stacking" : "percent"
       }
    },
-   "tooltip" : {
-      "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>",
-      "shared" : 1
+   "xAxis" : {
+      "categories" : [
+         "Robert Gratza",
+         "Ruben Westerberg",
+         "Sean Meininger",
+         "Sergio Iglesias",
+         "Simon Proctor",
+         "Simon Reinhardt",
+         "Steve Rogerson",
+         "Steven Lembark",
+         "Steven Wilson",
+         "Tiago Stock",
+         "Tore Andersson",
+         "Veesh Goldman",
+         "William Gilmore"
+      ]
+   },
+   "chart" : {
+      "type" : "column"
    },
    "title" : {
       "text" : "Perl Weekly Challenge - 2019"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : ""
-      },
-      "min" : 0
    }
 }
diff --git a/stats/pwc-summary.json b/stats/pwc-summary.json
index ac1f0f336f..4bfd183730 100644
--- a/stats/pwc-summary.json
+++ b/stats/pwc-summary.json
@@ -1,6 +1,22 @@
 {
+   "tooltip" : {
+      "shared" : 1,
+      "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>"
+   },
+   "yAxis" : {
+      "min" : 0,
+      "title" : {
+         "text" : ""
+      }
+   },
+   "plotOptions" : {
+      "column" : {
+         "stacking" : "percent"
+      }
+   },
    "series" : [
       {
+         "name" : "Perl 5",
          "data" : [
             2,
             8,
@@ -75,8 +91,7 @@
             2,
             3,
             1
-         ],
-         "name" : "Perl 5"
+         ]
       },
       {
          "name" : "Perl 6",
@@ -157,22 +172,9 @@
          ]
       }
    ],
-   "tooltip" : {
-      "shared" : 1,
-      "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>"
-   },
-   "yAxis" : {
-      "min" : 0,
-      "title" : {
-         "text" : ""
-      }
-   },
    "chart" : {
       "type" : "column"
    },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 2019"
-   },
    "xAxis" : {
       "categories" : [
          "Abigail",
@@ -250,12 +252,10 @@
          "William Gilmore"
       ]
    },
-   "subtitle" : {
-      "text" : "[Champions: 73] Last updated at 2019-04-17 13:50:10 GMT"
+   "title" : {
+      "text" : "Perl Weekly Challenge - 2019"
    },
-   "plotOptions" : {
-      "column" : {
-         "stacking" : "percent"
-      }
+   "subtitle" : {
+      "text" : "[Champions: 73] Last updated at 2019-04-17 14:50:37 GMT"
    }
 }