Jump to content

Sum and product of an array: Difference between revisions

→‎{{header|Perl}}: Remove bug with pragma 'strict'. Remove bug with variables initialization.
(→‎{{header|Perl}}: Remove bug with pragma 'strict'. Remove bug with variables initialization.)
Line 329:
 
=={{header|Perl}}==
my ($sum, $prod) = (0, 1);
my @list = (1, 2, 3);
$sum += $_ for (@list);
Anonymous user
Cookies help us deliver our services. By using our services, you agree to our use of cookies.