如何從數學中的多項式中提取所有單項式（無係數！）？

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} 
*)