aoc2015

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

day04.pl (422B) - raw

      1 #!/usr/local/bin/perl
      2 # day 2015-04
      3 
      4 use strict;
      5 use warnings;
      6 use v5.32;
      7 use Digest::MD5 qw( md5_hex );
      8 
      9 my $input = "bgvyzdsv";
     10 my $answer = 0;
     11 my $md5_hash;
     12 
     13 do {
     14     $answer += 1;
     15     $md5_hash = md5_hex( $input . $answer );
     16 } until ( $md5_hash =~ m/\A0{5}/ );
     17 
     18 say "part 1: ", $answer;
     19 
     20 do {
     21     $answer += 1;
     22     $md5_hash = md5_hex( $input . $answer );
     23 } until ( $md5_hash =~ m/\A0{6}/ );
     24 
     25 say "part 2: ", $answer;