Sums

sums.p6

my @numbers = (1..25);
my @otherNumbers = (0, 1);

my $forSum = 0;
my $whileSum = 0;
my $recurseSum = 0;

sub addTogether(@numbers) {
    $recurseSum += @numbers.head();
    return @numbers.tail(*-1) ~~ () ?? $recurseSum !! addTogether(@numbers.tail(*-1));
}

sub MAIN() {
    # Get the sum three ways.
    for @numbers { $forSum += $_ }
    while $whileSum < $forSum { $whileSum += @numbers.reduce(&[+]) }
    ($forSum, $whileSum, addTogether(@numbers)).say;

    # Get the zip of these two lists.
    say (<a b c> Z (1, 2, 3)).flat;

    # Fibonacci.
    for 0..99 { @otherNumbers.push(@otherNumbers[$_] + @otherNumbers[$_ + 1]); }
    say @otherNumbers;
}

# Local Variables:
# compile-command: "perl6 ./sum-of-numbers.p6"
# End: