Sum and product of an array: Difference between revisions
Added Perl 6.
m (→{{header|J}}) |
Underscore (talk | contribs) (Added Perl 6.) |
||
Line 543:
map { $sum += $_ } @list;
map($prod *= $_, @list);</lang>
=={{header|Perl 6}}==
{{works with|Rakudo|#21 "Seattle"}}
<lang perl6>my @ary = 1, 5, 10, 100;
say 'Sum: ', [+] @ary;
say 'Product: ', [*] @ary;</lang>
=={{header|PHP}}==
<lang php>$array = array(1,2,3,4,5,6,7,8,9);
echo array_sum($array);
echo array_product($array);</lang>
=={{header|Pop11}}==
Simple loop:
| |||