happy number by kozima

(dotimes(i 2e3)(format(=(do((k i(do((m k(floor m 10))(s 0(+(expt(mod m 10)2)s)))((= m 0)s))))((> 7 k)k))1)"~A
"i))

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

download

return to the top page