Returning sum of array elements perl

Question

I have an MyArray whoes content are "200 500 800 100 " in perl . I need function which return me first 200, second iteration it should return me 200+500, next time it should return me 200+500+800,until it has sumup all the elements.

   foreach my $i (0 .. $#MyArray)
   {
       @MyArray = (1..$i);     
       $sum += $_ for @MyArray;
   }

I am trying to do something as mentioned above, but its not returning any $sum

What do you mean by "return me 200+500"? Do you want the routine to actually return a running total or are you only interested in the final sum of the numbers in the array? — Kenosis
– Kenosis, Commented Jan 23, 2014 at 5:15

Toto · Accepted Answer · 2014-01-23 14:27:19Z

6

How about:

use List::Util qw/sum/;
my @arr = (200, 500, 800, 100);
say sum(@arr[0..$_]) for (0..$#arr);

Output:

Documentation about List::Util.

answered Jan 23, 2014 at 14:27

Toto

91.7k63 gold badges97 silver badges135 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

blio · Accepted Answer · 2014-01-23 04:10:36Z

0

my $array = [200, 500, 800, 100];
my @sum_array;
my $iter_sum = 0;
for my $each (@$array) {
    $iter_sum += $each;
    push @sum_array, $iter_sum;
}
return \@sum_array;

you can get the sum in the @sum_array

answered Jan 23, 2014 at 4:10

blio

4835 silver badges13 bronze badges

Comments

Qinsi · Accepted Answer · 2020-01-08 09:57:48Z

0

@MyArray = (1..10);
foreach my $i (0 .. $#MyArray)
{
        $sum += $_ for @MyArray;
}
print "sum: $sum"

Output:

sum: 550

About your code: Maybe you need to put the array definition out of loop

answered Jan 8, 2020 at 9:57

Qinsi

82810 silver badges16 bronze badges

Collectives™ on Stack Overflow

Returning sum of array elements perl

3 Answers 3

Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related