aoc2015

Advent of Code 2015 solutions in Perl.
git clone git://git.samirparikh.com/aoc2015
Log | Files | Refs | README

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:
Mday11/Day11.pm | 6------
Mday11/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;