Wolfram mathematica Wolfram Mathematica。如何隐藏掌权者

我有密码

(# /. {x_, y_} -> Defer[x^y]) & /@ FactorInteger[x]

这给了我一个例子

{63，{32，71}

取一个数字：

number = 2^3 3^7 5^2 7^1

3061800

那我觉得这个好一点

Replace[FactorInteger[number], {{x_, 1} -> x, {x_, y_} -> Defer[x^y]}, {1}]

如果使用

ReplaceAll

aka

/，则实际上不需要映射
aka
/。

今后，请访问：

取一个数字：

number = 2^3 3^7 5^2 7^1

3061800

那我觉得这个好一点

Replace[FactorInteger[number], {{x_, 1} -> x, {x_, y_} -> Defer[x^y]}, {1}]


如果使用
ReplaceAll
aka
/，则实际上不需要映射
aka
/。

今后，请访问：

添加替换规则以首先处理特殊情况
{x，1}->x
当我使用（{x，1}->x，{x，y}->Defer[x^y]}）和/@factorynteger[x]时，我有{63，{3^2，63}我做错了什么？
（{x，1}->x，{x，y}->Defer[x^y]}我有{63，{3^2，63}}我有{code>（{code>）
如果内核不工作，请尝试重新启动内核。添加替换规则以首先处理特殊情况
{x，1}->x
当我使用（{x，1}->x，{x，y}->Defer[x^y]}）和/@factoriteger[x]我有{63，{3^2，63}->我做错了什么？
（{x，1}}/.{x，y}->Defer[x^y]}
告诉我
{3^2,7}
如果内核不工作，请尝试重新启动内核。好的，正确的公式是FactorInteger[x]/。{{u_，1}->u，{u_Integer，v_Integer}->Defer[u^v]}好的，右边的公式是factorynteger[x]/。{{u_，1}->u，{u_整数，v_整数}->延迟[u^v]}