s:ssubst;while(a:?read\-line(?-,?-,~))#~do(a:s("","0",a),sum(a:s(smake(i,b:ascii(i+48)),b,a),i,1,9),printf(?t,"~a ",a));
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page