Permanent[m_List] := With[{v = Array[x, Length[m]]}, Coefficient[Times @@ (m.v), Times @@ v]]
参考资料: http://mathworld.wolfram.com/Permanent.html
积和式Permanent在Mathematica中的运算
原文：http://www.cnblogs.com/zhangzujin/p/4111583.html
