最优化代码 

每次对 Module 进行计算都会生成一个唯一变量. 通过用 Block 和全局唯一变量编写函数，由于变量创建步骤被省略，因此可以提高重复执行时间.

为了使用有全局唯一变量的 Block，将 Module 进行删除.

In[1]:=

X Blockhead[icode_] := icode //. Inactive[Module][vars_, body_] :> (Inactive[Block][vars, body] /. (rule = Thread[# -> Unique[#]]) &[ Replace[vars, (Inactive[Set][var_, val_] | var_) :> var, {1}]])

创建一个未激活函数.

In[2]:=

X code = Inactivate[ fModule[s_] := Module[{x, y = Module[{z = 5 s}, z + 7]}, x = y ^2; Sin[x]]]

Out[2]=

应用变换.

In[3]:=

X bcode = Blockhead[code] /. fModule -> fBlock

Out[3]=

激活代码和变换后的代码，制定 fModule 和 fBlock 的定义.

In[4]:=

X Activate[code]; Activate[bcode];

比较随机测试值的数值.

In[5]:=

X testvalues = RandomReal[1, 5]; {fModule[#], fBlock[#]} & /@ testvalues

Out[5]=

与大型集合的测试值的计时相比，显示有2.5倍的速度提升.

In[6]:=

X testvalues = RandomReal[1, 10^5]; {AbsoluteTiming[Total[fModule /@ testvalues]], AbsoluteTiming[Total[fBlock /@ testvalues]]}

Out[6]=