5 lines
140 B
Text
5 lines
140 B
Text
sma_per(n)={
|
|
sma_v=vector(n);
|
|
sma_i = 0;
|
|
n->if(sma_i++>#sma_v,sma_v[sma_i=1]=n;0,sma_v[sma_i]=n;0)+sum(i=1,#sma_v,sma_v[i])/#sma_v
|
|
};
|