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