27 lines
544 B
Perl
27 lines
544 B
Perl
|
use 5.20.0;
|
||
|
|
use experimental qw/ signatures /;
|
||
|
|
use List::AllUtils qw/ reduce none all any /;
|
||
|
|
use DDP;
|
||
|
|
|
||
|
|
say scalar
|
||
|
|
grep {
|
||
|
|
has_sequence($_)
|
||
|
|
} map { chomp; $_ } <>;
|
||
|
|
|
||
|
|
sub has_sequence($s) {
|
||
|
|
my @inner = $s =~ /\[(.*?)\]/g;
|
||
|
|
|
||
|
|
for ( split /\[.*?\]/ ) {
|
||
|
|
while( length($_) >= 3 ) {
|
||
|
|
my $sub = substr $_, 0, 3;
|
||
|
|
if( $sub =~ /(.)(?!\1)(.)\1/ ) {
|
||
|
|
my $code = "$2$1$2";
|
||
|
|
return 1 if any { -1 < index $_, $code } @inner;
|
||
|
|
}
|
||
|
|
s/^.//;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return;
|
||
|
|
}
|