RosettaCodeData/Task/Matrix-arithmetic/PARI-GP/matrix-arithmetic-2.pari
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

1 line
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]]))