Help for this page

Select Code to Download


  1. or download this
    D:\>perl -lne "print /^[0-8]{9}$/ && !/(.)(?=.*\1)/ ? 'ok' : 'not ok'"
1234
...
010101010
not ok
^Z
  2. or download this
    D:\>perl -lne "print /^(?:([0-8])(?!.*\1)){9}$/ ? 'ok' : 'not ok'"
123456780
...
123456781
not ok
^Z