From e7b4b9ba7f1880d14c090d2604cd6217e7b86f7b Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 6 Sep 2021 14:50:28 +0200
Subject: Another implementation of task 2.

---
 challenge-129/luca-ferrari/raku/ch-2b.p6 | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 challenge-129/luca-ferrari/raku/ch-2b.p6

diff --git a/challenge-129/luca-ferrari/raku/ch-2b.p6 b/challenge-129/luca-ferrari/raku/ch-2b.p6
new file mode 100644
index 0000000000..e9971214f7
--- /dev/null
+++ b/challenge-129/luca-ferrari/raku/ch-2b.p6
@@ -0,0 +1,21 @@
+#!raku
+
+
+sub MAIN() {
+    my @L1 = 1 , 2 , 3 , 4 , 5;
+    my @L2 = 6 , 5 , 5;
+
+    my @sums;
+    my $carry = 0;
+
+    for 1 .. max( @L1.elems, @L2.elems ) {
+        my $sum = ( @L1.elems >= $_ ?? @L1[ * - $_ ] !! 0 )
+                      + ( @L2.elems >= $_ ?? @L2[ * - $_ ] !! 0 )
+                      + $carry;
+        $carry = 0;
+        ( $sum, $carry ) = ( $sum % 10, ( $sum / 10 ).Int ) if $sum >= 10;
+        @sums.push: $sum;
+    }
+
+    @sums.join( ' -> ' ).say;
+}
-- 
cgit