a:apply(matrix,makelist([?read(),?read()],i,1,4));sum(printf(?t,"~{~{~a~^ ~}~} ",[(w:1-t:i/10)^3,3*t*w^2,3*w*t^2,t^3].a),i,0,10);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page