Moving Average by pooq

w:=0
(a:=File standardInput readLines)map(slice(7)asNumber)do(map(i,v,w=w+v;i<5or w=w-at(i-5);writeln(a at(i)," Average:",(w/5min(i+1))asString(5,1))))

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page