adventofcode/2017/09/2.pl
2017-12-28 12:14:51 -05:00

25 lines
352 B
Perl

use 5.20.0;
my $stream = <>;
chomp $stream;
my $garbage;
$stream = clean_stream($stream);
say $garbage;
use experimental qw/signatures /;
sub clean_stream($s) {
return $s unless $s =~ s/^(.*?)<//;
while( $s =~ s/^(.*?)(!.|>)// ) {
warn $1;
$garbage += length $1;
last if $2 eq '>';
}
clean_stream($s);
}