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