Six or more by pooq

for($,17,1e4,n:= $;while((n%10-(n=n/10|0)%10)abs>5,0)n>0or$println)

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

download

return to the top page