Merge pull request #12885 from andemark/challenge-344

ch-2.raku do-over

1 files changed, 31 insertions, 0 deletions

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..f637abeb61
--- /dev/null
+++ b/challenge-344/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,31 @@
+#!/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,3],[4],[5,6],[1,2],[3,4,5]], [1,2,3,4,5,1,2,3,4,5,6]), "E Choroba Test";
+
+sub array-formation(@source, @target)
+{
+    my $target = @target.Str;
+
+    outer: for [X] @source.map({ 1..$target.match(/$_/, :g) }) -> $list
+    {
+        { 
+            temp $target;
+            
+            for $list.kv -> $k,$v
+            {
+                $target .= subst(/"@source[$k]"/, 'X', :nth($v));
+                next outer unless $/
+            }
+   
+            return True unless $target ~~ /<digit>/
+        }
+    }
+
+    return False
+}