都说mathematica的循环效率低，为啥这种情况下Do循环的效率反而比较高呢？重复了多次，大多数时间Nest花的时间多些
nDotl[a_, n_] :=
Module[{bb = 1}, Do[bb = Dot[a, bb], n]; Return[bb]];(*n重点积，左乘*)
nDotl1[a_, n_] := Nest[Dot[a, #] &, a, n - 1]
nn = 500;
AbsoluteTiming[nDotl[o, nn]]
AbsoluteTiming[nDotl1[o, nn]]

1. 纯符号计算基本告别效率了。
2. nn太小了。
3. 测速的时候两段代码别放一个单元里，有影响，尤其是这种耗时短的情况。改用新增的RepeatedTiming可以会好一点。（我没怎么用过，不敢断言。）