Sum and product of an array: Difference between revisions
Content added Content deleted
(→{{header|Perl}}: Remove bug with pragma 'strict'. Remove bug with variables initialization.) |
m (→{{header|Perl}}: s/for/foreach - foreach is better.) |
||
| Line 331: | Line 331: | ||
my ($sum, $prod) = (0, 1); |
my ($sum, $prod) = (0, 1); |
||
my @list = (1, 2, 3); |
my @list = (1, 2, 3); |
||
$sum += $_ |
$sum += $_ foreach @list; |
||
$prod *= $_ |
$prod *= $_ foreach @list; |
||
Alternate |
Alternate |
||