Averages/Simple moving average: Difference between revisions
m
→{{header|Quackery}}: made output prettier
(Added Quackery.) |
m (→{{header|Quackery}}: made output prettier) |
||
Line 3,787:
[ over size -
space swap of
[ ' [ stack [ ] ]
Line 3,809:
5 make-sma sma-5 put
say "n
' [ 1 2 3 4 5 5 4 3 2 1 ]
witheach
[ dup echo sp
dup sma-3 share do
7 point$ 10
sma-5 share do
7 point$ 10
</lang>
{{out}}
<pre>n
1 1 1
2 1.5 1.5
3 2 2
4 3
5 4
5
4
3 4 4.2
2 3 3.8
1 2
</pre>
|