Moving Average by clock

<?for(;$m-=$$i-${++$i+4}=substr($s=trim(~~fgets(STDIN)),7);printf("$s Average: %.1f
",$m/min($i,5)));

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

download

return to the top page