Challenge 344 Solutions (Raku)

2 files changed, 36 insertions, 0 deletions

diff --git a/challenge-344/mark-anderson/raku/ch-1.raku b/challenge-344/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..8090d92bb2
--- /dev/null
+++ b/challenge-344/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,13 @@
+#!/usr/bin/env raku
+use Test;
+
+is array-form-compute((1,2,3,4), 12), (1,2,4,6);
+is array-form-compute((2,7,4), 181), (4,5,5);
+is array-form-compute((9,9,9), 1), (1,0,0,0);
+is array-form-compute((1,0,0,0,0), 9999), (1,9,9,9,9);
+is array-form-compute((0,), 1000), (1,0,0,0);
+
+sub array-form-compute(@ints, $x)
+{
+    .comb given @ints.join + $x
+}
diff --git a/challenge-344/mark-anderson/raku/ch-2.raku b/challenge-344/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..6aa924e9b2
--- /dev/null
+++ b/challenge-344/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,23 @@
+#!/usr/bin/env raku
+use Test;
+
+ok  array-formation([[2,3],[1],[4]], [1,2,3,4]);
+nok array-formation([[1,3],[2,4]], [1,2,3,4]);
+ok  array-formation([[9,1],[5,8],[2]], [5,8,2,9,1]);
+nok array-formation([[1],[3]], [1,2,3]);
+ok  array-formation([[7,4,6]], [7,4,6]);
+ok  array-formation([[1],[2,33],[33,4],[2,33,4,5],[7],[1,2]],
+                    [1,2,33,4,5,7,33,4,2,33,1,2]);
+
+sub array-formation(@source, @target)
+{
+    my $target = @target.Str;
+
+    for @source.sort(-*.elems) 
+    {
+        $target .= subst(/$_/, 'X');
+        return False unless $/
+    }
+
+    $target !~~ /<digit>/
+}