Detect a Symmetric polynomial

Mathematica, 43 bytes

Last@SymmetricReduction[#,Variables@#]===0&

Unnamed function taking as input a polynomial in the given format (except that juxtaposed variables must be separated by a space) and returning True or False. Variables@# detects the variables appearing in the input (and thus the input can contain all kinds of weird variable names, not just single letters). SymmetricReduction returns an ordered pair of polynomials, where the first one is symmetric and the two sum to the original polynomial; therefore we can detect whether the input is symmetric by seeing whether the second polynomial is identically 0.


Maxima, 40 bytes

f(p):=listp(tpartpol(p,showratvars(p)));

Try It Online!

A function that takes a polynomial as input and returns true if it is symmetric else returns false