RosettaCodeData/Task/Averages-Simple-moving-average/Euler/averages-simple-moving-average-1.euler

>n=1000; m=100; x=random(1,n);
>x10=fold(x,ones(1,m)/m);
>x10=fftfold(x,ones(1,m)/m)[m:n]; // more efficient