a=e$2{for($(c=i=FS=e)=$1;e$++i;c*=!sub("^"c,e,a))c=(c+$i)%10;FS=OFS}$0=c||a?"NO":"YES"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page