4.3.0.2 例2．

平均値、分散を計算するプログラム (関数) を作れ。

mean::usage =
  "mean[list] returns the mean value of the elements of list."
variation::usage =
  "variation[list] returns the variation of the elements of list."

Begin["Private`"]
mean[l_List] := 
  Module[{n = Length[l], i}, Sum[l[[i]],{i,n}] / n]
variation[l_List] :=
  Module[{n, m, i}, 
        n = Length[l]; m=mean[l]; Sum[(l[[i]]-m)^2, {i,n}]/n]
End[]

Mathematica では、ある程度の規模の問題を解くとき、パッケージと呼ばれ る関数集をシステムにロードして使う、ということが多い。このような場合、 名前をきちんと扱うのは重要になる。(人間の知的活動でも、一つの名前が、 状況によって全く違う意味になることがあるが、文脈の違いを適当に認識する ことによって使い分けている。)