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

Mathematica提供了单项式列表[f]以获取f中的所有单项式：

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

---

但是我需要的是{x^2，xy，y^2}，我怎样才能做到呢？

Thx！一个更一般的扩展：

internal[#2^#1&，First/@CoefficientRules[#1，#2]，#2，Times]&[f，Variables[f]

@Neo，对于具有符号系数的多项式不起作用：）我注意到了这一点。谢谢：）

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