14 lines
302 B
Text
14 lines
302 B
Text
import Utils
|
|
|
|
procedure main(A)
|
|
sma1 := closure(SMA,[],3)
|
|
sma2 := closure(SMA,[],4)
|
|
every every n := !A do write(left(sma1(n),20), sma2(n))
|
|
end
|
|
|
|
procedure SMA(stream,P,n)
|
|
put(stream, n)
|
|
if *stream > P then pop(stream)
|
|
every (avg := 0.0) +:= !stream
|
|
return avg / *stream
|
|
end
|