RosettaCodeData/Task/Averages-Simple-moving-average/Mathematica/averages-simple-moving-average-2.math
2023-07-01 13:44:08 -04:00

6 lines
193 B
Text

MAData = {{}, 0};
MAS[x_, t_: Null] :=
With[{r = If[t === Null, MAData[[2]], t]},
Mean[MAData[[1]] =
If[Length[#] > (MAData[[2]] = r), #[[-r ;; -1]], #] &@
Append[MAData[[1]], x]]]