aoc2015

commit 3649f0cb70ee32250e649a3285e2ae081f3a07a5
parent 9759bd6a2171086377f2c22b3c412810091d7345
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Fri,  4 Nov 2022 17:44:19 +0000

solve part 2 of day11

Diffstat:
M
day11/Day11.pm
 | 
6
------
M
day11/day11.pl
 | 
9
---------

2 files changed, 0 insertions(+), 15 deletions(-)
diff --git a/day11/Day11.pm b/day11/Day11.pm
@@ -16,16 +16,10 @@ my $inc_straight = join "|", map { chr ( $number + $_ ) .
 
 sub is_valid_password {
     my $string = shift;
-    say "checking $string...";
-    say "repeating pattern not found" if ( $string !~ m/$inc_straight/ );
-    say "contains invalid character" if ( $string =~ m/[iol]/ );
-    say "no two different, non-overlapping pairs of letters" if ( $string !~ m/(\w)\1.*(\w)\2/ );
-    say "done checking $string.";
     return 0 if ( $string !~ m/$inc_straight/ ) ||
                 ( $string =~ m/[iol]/ )         ||
                 ( $string !~ m/(\w)\1.*(\w)\2/ );
     return 1;
 }
 
-
 1;
diff --git a/day11/day11.pl b/day11/day11.pl
@@ -9,15 +9,6 @@ use Day11 qw( is_valid_password );
 
 my $password = 'hepxcrrq';
 
-#is_valid_password( $password );
-chomp( my $input = do { local $/; <> } );
-
-foreach ( split /\n/, $input ) {
-    print "$_ is ", is_valid_password($_) ? "" : "not ";
-    say "a valid password.";
-    say "-------------------------";
-}
-
 do { $password++ } until ( is_valid_password( $password ) );
 say "part 1: ", $password;