25 lines
320 B
Text
25 lines
320 B
Text
list
|
|
eqindex(list l)
|
|
{
|
|
integer e, i, s, sum;
|
|
list x;
|
|
|
|
s = sum = 0;
|
|
l.ucall(add_i, 1, sum);
|
|
for (i, e in l) {
|
|
if (s * 2 + e == sum) {
|
|
x.append(i);
|
|
}
|
|
s += e;
|
|
}
|
|
|
|
x;
|
|
}
|
|
|
|
integer
|
|
main(void)
|
|
{
|
|
list(-7, 1, 5, 2, -4, 3, 0).eqindex.ucall(o_, 0, "\n");
|
|
|
|
0;
|
|
}
|