two kinds of digit by macik

for(1..1e4){++$n;/./;s/$&//g;print"$n
"if/^(.)\1*$/}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page