为什么Mathematica不会自动使用符号和来更快地进行计算？例如，以下代码需要很长时间才能执行。
fr[r_] := PDF[DiscreteUniformDistribution[{1, 10}], r];
Sum[fr[r], {r, 1, 100000000000000000000000000000}]
如果我用以下内容替换最后一行，则计算是即时的。
ReplaceRepeated[Sum[fr[r], {r, 1, n}], n -> 100000000000000000000000000000]
有没有办法以符号方式自动计算总和？