RosettaCodeData/Task/Standard-deviation/Mathematica/standard-deviation.math

3 lines
99 B
Plaintext

runningSTDDev[n_] := (If[Not[ValueQ[$Data]], $Data = {}];
StandardDeviation[AppendTo[$Data, n]])