Six or more by clock

10.upto($$){|i|d=i;r|=(i%10-(i/=10)%10).abs<6while i>9;r||(p d)}

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

download

return top