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:
my ($sum, $prod) = (0, 1);
my @list = (1, 2, 3);
$sum += $_ forforeach (@list);
$prod *= $_ forforeach (@list);
 
Alternate
Retrieved from "https://rosettacode.org/wiki/Sum_and_product_of_an_array"