Merge pull request #12917 from wambash/challenge-week-344

solution week 344-1

1 files changed, 24 insertions, 0 deletions

diff --git a/challenge-344/wambash/raku/ch-1.raku b/challenge-344/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..a21597f8e8
--- /dev/null
+++ b/challenge-344/wambash/raku/ch-1.raku
@@ -0,0 +1,24 @@
+#!/usr/bin/env raku
+
+sub array-form-compute (+ints,:$x) {
+    ints
+    andthen [~] |$_
+    andthen $_ + $x
+    andthen .comb
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is array-form-compute([1, 2, 3, 4], :12x), [1, 2, 4, 6], 'tests addition of 1234 and 12';
+    is array-form-compute([1, 2, 0, 0], :34x), [1, 2, 3, 4], 'tests addition with trailing zeros';
+    is array-form-compute([2, 7, 4], :181x), [4, 5, 5], 'tests addition with carry propagation';
+    is array-form-compute([9, 9, 9], :1x), [1, 0, 0, 0], 'tests addition causing digit overflow';
+    is array-form-compute([0], :1000x), [1, 0, 0, 0], 'tests addition when input is zero';
+    is array-form-compute([1, 0, 0, 0, 0], :9999x), [1, 9, 9, 9, 9], 'tests addition with large x';
+    is array-form-compute([1], :999x), [1, 0, 0, 0], 'tests single-digit input with large addition';
+    done-testing;
+}
+
+multi MAIN (+ints,:$x) {
+    put array-form-compute ints,:$x;
+}