12 lines
205 B
Text
12 lines
205 B
Text
cons(V)={
|
|
my(v,u,s);
|
|
for(i=1,#V,
|
|
v=V[i];
|
|
for(j=i+1,#V,
|
|
u=V[j];
|
|
if(#setintersect(u,v),V[i]=v=vecsort(setunion(u,v));V[j]=[];s++)
|
|
)
|
|
);
|
|
V=select(v->#v,V);
|
|
if(s,cons(V),V)
|
|
};
|