使循环=
函数[{x},
分拣@理货[Length/@PermutationCycles[x+1,Identity]];
总重量=
函数[{c},乘积[(x[1]]^x[[2]])(x[2]]!),{x,c}]];
perms=函数[{n},
压扁[桌子[
FromDigits[Permute[InterDigits[BitX或[x,a],2,n],西格玛],
2] ,{sigma,排列[Range[n]]},{a,0,2^n-1},}x,0,
2^n-1}],1]];
计数=
函数[{n},
总和[totalweight[x[[1]]](x[2]]^2),{x,
计数[cyclify/@perms[n]]}/((2^n)(n!))^2];
表[countit[n],{n,1,5}](*亚当·古彻2021年2月12日*)
|