Merge pull request #3015 from stuart-little/stuart-little_005

1st commit on 005

3 files changed, 25 insertions, 0 deletions

diff --git a/challenge-005/stuart-little/README b/challenge-005/stuart-little/README
new file mode 100644
index 0000000000..78439907de
--- /dev/null
+++ b/challenge-005/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little
diff --git a/challenge-005/stuart-little/raku/ch-1.p6 b/challenge-005/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..49297ba2a4
--- /dev/null
+++ b/challenge-005/stuart-little/raku/ch-1.p6
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl6
+use v6;
+
+my %*SUB-MAIN-OPTS=:named-anywhere,;
+sub MAIN(
+    Str $word,
+    Str $path_to_dict_file,
+) {
+    say anagrams($word, $path_to_dict_file.IO.slurp.words)
+}
+
+sub anagrams($word,@words) {
+    my $bag=$word.lc.comb.Bag;
+    return @words.grep({ $_.lc.comb.Bag === $bag })
+}
diff --git a/challenge-005/stuart-little/raku/ch-2.p6 b/challenge-005/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..d86b534f92
--- /dev/null
+++ b/challenge-005/stuart-little/raku/ch-2.p6
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl6
+use v6;
+
+my %*SUB-MAIN-OPTS=:named-anywhere,;
+sub MAIN(
+    Str $path_to_dict_file,
+) {
+    say $path_to_dict_file.IO.words.classify({ $_.lc.comb.Bag }).max({ $_.value.elems }).value
+}