8 lines
288 B
Perl
8 lines
288 B
Perl
foreach (qw(1001110011 1110111011 0010010010 1010101010 1111111111 0100101101 0100100 101 11 00 1)) {
|
|
print "$_\n";
|
|
if (/^(.+)\1+(.*$)(?(?{ substr($1, 0, length $2) eq $2 })|(?!))/) {
|
|
print ' ' x length $1, "$1\n\n";
|
|
} else {
|
|
print " (no repeat)\n\n";
|
|
}
|
|
}
|