如何从mathematica中的多项式中提取所有单项式（无系数！）？

Question

Mathematica提供MonomialList [f]来获取f：

中的所有单项式

MonomialList[(x+y)^2]={x^2,2xy,y^2}

但我需要的是{x ^ 2，xy，y ^ 2}，我该怎么做呢？

Answer 1

Inner[#2^#1 &, First/@CoefficientRules[#1, #2], #2, Times] &[(x + y)^2, {x, y}]
(*
{x^2, x y, y^2}
*)