Task 2 Week 344 in Raku by @ash

1 files changed, 12 insertions, 0 deletions

diff --git a/challenge-344/ash/raku/ch-2.raku b/challenge-344/ash/raku/ch-2.raku
new file mode 100644
index 0000000000..6e192376b8
--- /dev/null
+++ b/challenge-344/ash/raku/ch-2.raku
@@ -0,0 +1,12 @@
+# Task 2 of the Weekly Challenge 344
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-344/#TASK2
+
+say can-form-array(([2,3], [1], [4]), (1, 2, 3, 4)); # True
+say can-form-array(([1,3], [2,4]), (1, 2, 3, 4)); # False
+say can-form-array(([9,1], [5,8], [2]), (5, 8, 2, 9, 1)); # True
+say can-form-array(([1], [3]), (1, 2, 3)); # False
+say can-form-array(([7,4,6]), (7, 4, 6)); # True
+
+sub can-form-array(@source, @target) {
+    @target ~~ any(@source.permutations>>.flat)
+}