Six or more by pooq

for i=17to 1e4n=i
1a=mod(n,10)
n=(n-a)/10
if(a-mod(n,10))^2>25goto 1
if!n?i
next

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

download

return to the top page