#Perl, 23 bytes
say<>=~/^(?!(..+)\1+$)/ Using the regular expression+unary input approach, prints 11 (or whatever your digit entered) or a blank line
ThaddeusB
- 401
- 2
- 8
#Perl, 23 bytes
say<>=~/^(?!(..+)\1+$)/ Using the regular expression+unary input approach, prints 11 (or whatever your digit entered) or a blank line