評価時間の測定
評価にかかる時間を測定する.
In[1]:=
![Click for copyable input](assets.ja/measure-evaluation-timing/In_78.png)
AbsoluteTiming[Total[Range[10000]]]
Out[1]=
![](assets.ja/measure-evaluation-timing/O_66.png)
RepeatedTimingを使って繰り返し実行される評価の平均時間を求める.
In[2]:=
![Click for copyable input](assets.ja/measure-evaluation-timing/In_79.png)
RepeatedTiming[Total[Range[10000]]]
Out[2]=
![](assets.ja/measure-evaluation-timing/O_67.png)
配列を作成するさまざまな方法の平均評価時間を比較する.
In[3]:=
![Click for copyable input](assets.ja/measure-evaluation-timing/In_80.png)
funs = {
Table[0, {i, #}, {j, #}] &,
Map[Map[0 &, Range[#]], Range[#]] &,
Scan[Scan[Sow[0], Range[#]], Range[#]] &,
ConstantArray[0, {#, #}] &,
Array[0 &, {#, #}] &,
Outer[0 &, Range[#], Range[#]] &
};
timings = First[ RepeatedTiming[#[100]]] & /@ funs;
完全なWolfram言語入力を表示する
Out[4]=
![](assets.ja/measure-evaluation-timing/O_68.png)