RosettaCodeData/Task/Cumulative-standard-deviation/Mathematica/cumulative-standard-deviati...

2 lines
96 B
Plaintext

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