Help for this page

Select Code to Download

Select or download this

$| = 1;
for (100..999) {
  next if /(.)\1\1/;
  print "$_ : ", k($_), $/;
}

Select or download this

sub k {
  $_=sprintf"%03d",pop;/495/?0:1+k(-($_=join'',sort/./g)+reverse)
}