happy number by medialuna

g=:((+/)@:*:)@((10&#.)^:_1)
f=:3 : '1 e.g^:(i.40)y'
wd&.><"0 v#~(f"0)v=.(1+i.2e3)

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

download

return to the top page