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