3 ms·
Mathematica In[1]:= AbsoluteTiming[ Nest[RandomReal[] + # &, 0, 3000000]] Out[1]= {0.3276005, 1.50067*10^6} In[2]:= AbsoluteTiming[ Nest[RandomRe
by tokipin 15y ago
Mathematica
In[1]:= AbsoluteTiming[
Nest[RandomReal[] + # &, 0, 3000000]]
Out[1]= {0.3276005, 1.50067*10^6}
In[2]:= AbsoluteTiming[
Nest[RandomReal[] + # &, 0, 30000000]]
Out[2]= {2.9952052, 1.5001*10^7}
Not bad I think.