From 577b47165f071831f9fb51fe3abb72478eb2bb5a Mon Sep 17 00:00:00 2001 From: "Jaldhar H. Vyas" Date: Mon, 9 May 2022 03:15:18 -0400 Subject: Raku solution for challenge 163 problem 2. --- challenge-163/jaldhar-h-vyas/raku/ch-2.raku | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100755 challenge-163/jaldhar-h-vyas/raku/ch-2.raku 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 -- cgit