Re: How can I add all the numbers in an array with out doing a foreach loop?

List::Util provides a sum() function:

use List::Util qw(sum);

$sum = sum(1..10);
[download]

Comment on Re: How can I add all the numbers in an array with out doing a foreach loop? Download Code

Replies are listed 'Best First'.
Re: Answer: How can I add all the numbers in an array with out doing a foreach loop? by borisz (Canon) on Aug 16, 2006 at 09:48 UTC
Just for fun, does the question make any sense? `use List::Util qw/reduce/; my $sum = reduce { $a + $b } 1..10;` [download] Boris	[reply] [d/l]
Re: Answer: How can I add all the numbers in an array with out doing a foreach loop? by b10m (Vicar) on Aug 15, 2006 at 10:49 UTC
... and List::Util::sum() doesn't use a `foreach` loop? -- b10m All code is usually tested, but rarely trusted.	[reply]
Re^2: Answer: How can I add all the numbers in an array with out doing a foreach loop? by gellyfish (Monsignor) on Aug 15, 2006 at 10:58 UTC
Er, no it is XS code, it does interate over the list it gets as an argument using `for(index = 1 ; index < items ; index++)` but I don't think that counts as a `foreach` /J\	[reply] [d/l] [select]
A reply falls below the community's threshold of quality. You may see it by logging in.
Re: Answer: How can I add all the numbers in an array with out doing a foreach loop? by furry_marmot (Pilgrim) on Aug 16, 2006 at 13:29 UTC
I just have to ask how the heck hard is it to write this: `$sum += $_ for @array` And notice there's no `foreach` loop, which the Camel clearly states is a synonym for `for` anyway (see "perldoc perlsyn", 'Foreach Loops'), so maybe I'm not clear on what you're asking. --marmot	[reply] [d/l] [select]