commit d89204a2bd8d68c2e1c1278251ca0d96c6722853 parent af96dfd5e35eef1b9f116e7eaa6507ad2b45da27 Author: Samir Parikh <noreply@samirparikh.com> Date: Mon, 17 Oct 2022 20:56:52 +0000 solve part 2 of day04 Diffstat:
M | day04/day04.pl | | | 17 | ++++++++++++----- |
1 file changed, 12 insertions(+), 5 deletions(-)
diff --git a/day04/day04.pl b/day04/day04.pl @@ -4,15 +4,22 @@ use strict; use warnings; use v5.32; -use Digest::MD5 qw(md5_hex); +use Digest::MD5 qw( md5_hex ); my $input = "bgvyzdsv"; -my $part1 = 0; +my $answer = 0; my $md5_hash; do { - $part1 += 1; - $md5_hash = md5_hex( $input . $part1 ); + $answer += 1; + $md5_hash = md5_hex( $input . $answer ); } until ( $md5_hash =~ m/\A0{5}/ ); -say "part 1: ", $part1; +say "part 1: ", $answer; + +do { + $answer += 1; + $md5_hash = md5_hex( $input . $answer ); +} until ( $md5_hash =~ m/\A0{6}/ ); + +say "part 2: ", $answer;