Sum and product of an array: Difference between revisions

<lang aime>void

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>

<pre>77

9699690</pre>