Anonymous user
Sum and product of an array: Difference between revisions
→{{header|Perl}}: Remove bug with pragma 'strict'. Remove bug with variables initialization.
(→{{header|XSLT}}: format) |
(→{{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);
|