a:[];w:0;sum((a:cons(b:eval_string(split(x:?read\-line()," ")[2]),a),w:w+b,i<6or w:w-a[6],printf(?t,"~a Average: ~,1f ",x,w/min(i,5))),i,1,300);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page