Question

我有一个代码

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

这给了我举个例子

 {63, {3<sup>2</sup>, 7<sup>1</sup>}}

如何将7 ^ 1替换为简单7

Answer 1

拿个号码：

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

3061800

然后我认为这有点好看

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

如果您使用Map又名/@

，则您真的不需要ReplaceAll又名/.

以后转到：