相关疑难解决方法(0)

假设我想构建类似的东西

Array[#1^#2 == 3 &, {3, 3}] 

现在我想用变量替换"3".我可以做,例如:

f[x_] := Array[#1^#2 == x &, {x, x}]  

问题是:是否有一种方法只使用插槽和&作为功能表示法？

请考虑:

Clear[x]
expr = Sum[x^i, {i, 15}]^30;

CoefficientList[expr, x]; // Timing
Coefficient[Expand@expr, x, 234]; // Timing
Coefficient[expr, x, 234]; // Timing

{0.047, Null}

{0.047, Null}

{4.93, Null}

帮助说明:

Coefficient 无论是否以扩展形式明确给出expr,都可以正常工作.

是否有一个原因,Coefficient需要在最后一种情况下这么慢？