1st commit on 024

3 files changed, 12 insertions, 0 deletions

diff --git a/challenge-024/stuart-little/README b/challenge-024/stuart-little/README
new file mode 100644
index 0000000000..78439907de
--- /dev/null
+++ b/challenge-024/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little
diff --git a/challenge-024/stuart-little/raku/ch-1.p6 b/challenge-024/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..e69de29bb2
--- /dev/null
+++ b/challenge-024/stuart-little/raku/ch-1.p6
diff --git a/challenge-024/stuart-little/raku/ch-2.p6 b/challenge-024/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..83b1c69895
--- /dev/null
+++ b/challenge-024/stuart-little/raku/ch-2.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run as <script> <space-separated list of files>
+
+sub rev_idx(@files) {
+    my @words=@files.map({ $_.IO.comb(/\w+/) }).map(|*).Set.keys.map(*.lc).unique.sort;
+    @words.map({ $_ => @files.grep( -> $file { $file.IO.slurp.contains($_) }) })
+}
+
+for rev_idx(@*ARGS) {.say}