16 lines
197 B
Perl
16 lines
197 B
Perl
use lib qw/ . /;
|
|
|
|
use Part1;
|
|
|
|
package Day3::Part2;
|
|
|
|
use 5.36.0;
|
|
|
|
sub solve($program) {
|
|
my $p = $program;
|
|
$p =~ s/ don't\(\) .*? (do\(\)|\Z) //smgx;
|
|
return Day3::Part1::solve($p);
|
|
}
|
|
|
|
1;
|