評価時間の測定

評価にかかる時間を測定する．

In[1]:=

AbsoluteTiming[Total[Range[10000]]]

Out[1]=

RepeatedTimingを使って繰り返し実行される評価の平均時間を求める．

In[2]:=

RepeatedTiming[Total[Range[10000]]]

Out[2]=

配列を作成するさまざまな方法の平均評価時間を比較する．

In[3]:=

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;

In[4]:=

BarChart[timings, ChartLabels -> funs /. Function[head_[__]] :> head, PlotTheme -> "Marketing", ImageSize -> 500, ScalingFunctions -> "Log"]

Out[4]=