- Added solutions by Jo Christian Oterhals.

2 files changed, 14 insertions, 0 deletions

diff --git a/challenge-005/jo-christian-oterhals/perl6/ch-1.p6 b/challenge-005/jo-christian-oterhals/perl6/ch-1.p6
new file mode 100644
index 0000000000..e6b218f753
--- /dev/null
+++ b/challenge-005/jo-christian-oterhals/perl6/ch-1.p6
@@ -0,0 +1,4 @@
+my $dict = "/usr/share/dict/words".IO.lines()>>.lc.Set;
+for @*ARGS ?? @*ARGS !! ! $*IN.t ?? lines() !! '' -> $w {
+    $w.lc.comb.permutations>>.join.grep({ $dict{$_} and $_ ne $w }).map({ "$w\t$_\n" }).unique.join.say;
+}
diff --git a/challenge-005/jo-christian-oterhals/perl6/ch-2.p6 b/challenge-005/jo-christian-oterhals/perl6/ch-2.p6
new file mode 100644
index 0000000000..939c06cb95
--- /dev/null
+++ b/challenge-005/jo-christian-oterhals/perl6/ch-2.p6
@@ -0,0 +1,10 @@
+my %dict = "/usr/share/dict/words".IO.lines().map({ $_.lc => True});
+my %rev-dict;
+push %rev-dict{$_.comb.sort.join}, $_ for %dict.keys;
+my @variation = reverse 
+                sort { %rev-dict{$_}.elems }, %rev-dict.keys;
+my $max-anagrams = %rev-dict{@variation[0]}.elems;
+for @variation {
+  last if %rev-dict{$_}.elems != $max-anagrams;
+  say "$_ ($max-anagrams): " ~ %rev-dict{$_}.join(',');
+}