happy number by miura1729

1.upto(2e3){|n|m=n;1while(m=eval"#{m}".gsub /./,'+\0*\0')>4;m>1or p n}\x0d

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

download

return top