2 lines
73 B
Text
2 lines
73 B
Text
|
matperm(M)=my(n=#M,t);sum(i=1,n!,t=numtoperm(n,i);prod(j=1,n,M[j,t[j]]))
|