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