Averages/Simple moving average: Difference between revisions
→{{header|Picat}}
Line 3,463:
1: sma3= 2, sma5= 3
</pre>
=={{header|Picat}}==
<lang Picat>main =>
L=[1, 2, 3, 4, 5, 5, 4, 3, 2, 1],
Map3 = new_map([p=3]),
Map5 = new_map([p=5]),
foreach(N in L)
printf("n: %-2d sma3: %-17w sma5: %-17w\n",N, sma(N,Map3), sma(N,Map5))
end.
sma(N,Map) = Average =>
Stream = Map.get(stream,[]) ++ [N],
if Stream.len > Map.get(p) then
Stream := Stream.tail
end,
Average = cond(Stream.len == 0,
0,
sum(Stream) / Stream.len),
Map.put(stream,Stream).</lang>
{{out}}
<pre>n: 1 sma3: 1.0 sma5: 1.0
n: 2 sma3: 1.5 sma5: 1.5
n: 3 sma3: 2.0 sma5: 2.0
n: 4 sma3: 3.0 sma5: 2.5
n: 5 sma3: 4.0 sma5: 3.0
n: 5 sma3: 4.666666666666667 sma5: 3.8
n: 4 sma3: 4.666666666666667 sma5: 4.2
n: 3 sma3: 4.0 sma5: 4.2
n: 2 sma3: 3.0 sma5: 3.8
n: 1 sma3: 2.0 sma5: 3.0</pre>
=={{header|PicoLisp}}==
| |||