Merge pull request #11522 from andemark/challenge-307

Challenge 307 Solutions (Raku)

2 files changed, 21 insertions, 0 deletions

diff --git a/challenge-307/mark-anderson/raku/ch-1.raku b/challenge-307/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..aaff0c5d26
--- /dev/null
+++ b/challenge-307/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+use Test;
+
+is-deeply check-order(5,2,4,3,1), (0,2,3,4);
+is-deeply check-order(1,2,1,1,3), (1,3);
+is-deeply check-order(3,1,3,2,3), (0,1,3);
+
+sub check-order(+@ints)
+{
+    (@ints Z== @ints.sort).grep(not *, :k)
+}
diff --git a/challenge-307/mark-anderson/raku/ch-2.raku b/challenge-307/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..8ca2bae2ac
--- /dev/null
+++ b/challenge-307/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,10 @@
+#!/usr/bin/env raku
+use Test;
+
+is find-anagrams(<acca dog god perl repl>), 3;
+is find-anagrams(<abba baba aabb ab ab>),   2;
+
+sub find-anagrams(@words)
+{
+    + squish @words>>.comb>>.Bag
+}