From 18f46ea22406f141268e80c4803185a3e14c0830 Mon Sep 17 00:00:00 2001 From: Andrew Shitov Date: Mon, 20 Oct 2025 10:20:53 +0200 Subject: Task 1 Week 344 in Raku by @ash --- challenge-344/ash/raku/ch-1.raku | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 challenge-344/ash/raku/ch-1.raku diff --git a/challenge-344/ash/raku/ch-1.raku b/challenge-344/ash/raku/ch-1.raku new file mode 100644 index 0000000000..d2268a2a95 --- /dev/null +++ b/challenge-344/ash/raku/ch-1.raku @@ -0,0 +1,12 @@ +# Task 1 of the Weekly Challenge 344 +# https://theweeklychallenge.org/blog/perl-weekly-challenge-344/#TASK1 + +say add-val((1, 2, 3, 4), 12); # (1 2 4 6) +say add-val((2, 7, 4), 181); # (4 5 5) +say add-val((9, 9, 9), 1); # (1 0 0 0) +say add-val((1, 0, 0, 0, 0), 9999); # (1 9 9 9 9) +say add-val((0,), 1000); # (1 0 0 0) + +sub add-val(@ints, $x) { + (@ints.join + $x).comb +} -- cgit From 3379d2813af3034df641c244e04e72472c713681 Mon Sep 17 00:00:00 2001 From: Andrew Shitov Date: Mon, 20 Oct 2025 11:04:33 +0200 Subject: Task 2 Week 344 in Raku by @ash --- challenge-344/ash/raku/ch-2.raku | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 challenge-344/ash/raku/ch-2.raku 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) +} -- cgit