Challenge 2

1 files changed, 13 insertions, 0 deletions

diff --git a/challenge-064/simon-proctor/raku/ch-2.raku b/challenge-064/simon-proctor/raku/ch-2.raku
new file mode 100644
index 0000000000..435ddf90b0
--- /dev/null
+++ b/challenge-064/simon-proctor/raku/ch-2.raku
@@ -0,0 +1,13 @@
+#!/usr/bin/env raku
+
+use v6.d;
+
+#| Given a string and a list of other strings return those in the main string in order
+sub MAIN (
+    Str $haystack, #= Target string to search
+    *@needles #= Strings to search for
+) {
+    my @out = @needles.map( { $_ => $haystack.index($_) } ).grep( { $_.value.defined } ).sort( { $^a.value <=> $^b.value } ).map( *.key );
+    (.say for @out ) if @out;
+    "0".say unless @out;
+}