happy number by kozima

(dotimes(i 2e3)(format(=(do((k i(do((m k(floor m 10))(s 0(+(* #1=(mod m 10)#1#)s)))((= m 0)s)))(c 0))((>(incf c)9)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