14 lines
237 B
Text
14 lines
237 B
Text
flip(v:vec)={
|
|
my(t=v[1]+1);
|
|
if (t==2, return(0));
|
|
for(i=1,t\2, [v[t-i],v[i]]=[v[i],v[t-i]]);
|
|
1+flip(v)
|
|
}
|
|
topswops(n)={
|
|
my(mx);
|
|
for(i=0,n!-1,
|
|
mx=max(flip(Vecsmall(numtoperm(n,i))),mx)
|
|
);
|
|
mx;
|
|
}
|
|
vector(10,n,topswops(n))
|