例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 では C のように何かをするための専用プログラムを記述して、 コンパイルして実行するのではなく、知識を増やして賢くして行き、質問に答 えさせるという感じ。何か計算させるときは、○○関係の関数集 (パッケージ という) をシステムにロードして使う、という形態を取る。こういう場合、名 前をきちんと扱うのは重要になる。 (人間の知的活動でも、一つの名前が、状 況によって全く違う意味になることがあるが、文脈の違いを適当に認識するこ とによって使い分けている。)