Help for this page

Select Code to Download


  1. or download this
    print grep { /(\d).*\1/ && ! /(\d).*\1.*\1/ } map {sprintf "%04d",$_} 
+(0..9999)