4.3.0.1 例1.

先に出した Fibonacci 数列を計算する関数は効率が 良くないので、Do[] を用いて書き直す:

   Fibonacci[n_Integer?Positive] :=
     Module[{fn=1,fn2=0},
       Do[{fn1,fn2}={fn1+fn2,fn1}, {n-1}];
       fn1
     ]