Anonymous user
Sum and product of an array: Difference between revisions
→{{header|Aime}}
No edit summary |
|||
Line 95:
=={{header|Aime}}==
<lang aime>
compute(integer &s, integer &p, list l)
{
integer i;
s = 0;
p = 1;
i = l_length(l);
while (i) {
i -= 1;
s += l_q_integer(l, i);
p *= l_q_integer(l, i);
}
}
list
new_list(...)
{
integer i;
list l;
i = -count();
while (i) {
lb_p_integer(l, $i);
i += 1;
}
return l;
}
integer
main(void)
{
integer sum, product;
compute(sum, product, new_list(2, 3, 5, 7, 11, 13, 17, 19));
o_integer(sum);
o_newline();
o_integer(product);
o_newline();
return 0;
}</lang>
{{out}}
<pre>
9699690</pre>
=={{header|APL}}==
|