Permanent[m_List] :=
With[{v = Array[x, Length[m]]},
Coefficient[Times @@ (m.v), Times @@ v]]

参考资料: http://mathworld.wolfram.com/Permanent.html

积和式Permanent在Mathematica中的运算