9 lines
151 B
Text
9 lines
151 B
Text
equilib(v)={
|
|
my(a=sum(i=2,#v,v[i]),b=0,u=[]);
|
|
for(i=1,#v-1,
|
|
if(a==b, u=concat(u,i));
|
|
b+=v[i];
|
|
a-=v[i+1]
|
|
);
|
|
if(b,u,concat(u,#v))
|
|
};
|