aoc2015

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

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