{for(n=51;1X[u=n+index($1,d="."),w=n+index($3,d)]>u&&w<1?v>9:1;)o=n--?(v=(v>9)+substr($1,u<1?-1:u,1)+substr($3,w<1?-1:w,1))%10o:d o}$0=o,gsub(/0+$/,v=o=_)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page