(PARI)
对于(n=1,7,q=向量(n!);计数=0;m2=匹配(n);q[1]=平方米;v=矢量(n);对于(i=1,n,v[i]=i);v3=矢量(n);对于(i=1,n,v3[i]=n-i+1);
而(v3!=v,对于(i=1,n-1,如果(v[i]<v[i+1],a=i);对于(i=a+1,n,如果(v[i]>v[a],b=i));温度=v[a];v[a]=v[b];v[b]=温度;
v2=矢量(n-(a+1)+1);对于(i=1,n-(a+1)+1,v2[i]=v[n-i+1]);对于(i=a+1,n,v[i]=v2[i-a]);
m=矩阵(n,n);对于(i=1,n,m[v[i],i]=1);q[计数+2]=m;计数++);
q2=向量(n!);对于(i=1,n!,m2=prod(j=1,i,q[j]);对于(i=1,n!,如果(q[i]==m2,a2=i));q2[a2]++);
a3=0;对于(i=1,n!,如果(q2[i]>0,a3++));打印(a3))
|