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