4 lines
107 B
Text
4 lines
107 B
Text
Permanent[m_List] :=
|
|
With[{v = Array[x, Length[m]]},
|
|
Coefficient[Times @@ (m.v), Times @@ v]
|
|
]
|