(sharing) In[123]:=

LongCalculation[notify_: False] := Module[ {sum = 0, cnt = 0}, Do[ sum += Random[] ; ++ cnt ... rame @ setTitle["cnt=50000, sum=" <> ToString[sum]]] ], {100000}] ; Print[sum] ]

General :: spell1 : スペル間違いの可能性があります．新規シンボル\" sum \"はすでにあるシンボル\" Sum \"に似ています．

Converted by Mathematica  (July 17, 2003)