adventofcode/2016/07/2.pl
Yanick Champoux 2a5f946613 2016-07
2018-01-20 13:44:10 -05:00

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;
}