Raku solution for challenge 163 problem 2.

1 files changed, 22 insertions, 0 deletions

diff --git a/challenge-163/jaldhar-h-vyas/raku/ch-2.raku b/challenge-163/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..f8d799c349
--- /dev/null
+++ b/challenge-163/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@n #= a list of integers
+) {
+    my @previous = @n[1 .. *];
+    my $total;
+
+    while @previous.elems {
+        $total = @previous[0];
+        my @next = ( $total );
+
+        for 1 ..^ @previous.elems -> $i {
+            $total += @previous[$i];
+            @next.push($total);
+        }
+
+        @previous = @next[1 .. *];
+    }
+
+    say $total;
+}
\ No newline at end of file