aoc2015

commit af96dfd5e35eef1b9f116e7eaa6507ad2b45da27
parent 7fb1a35db2d56c2368d25abcc8b227c48a357c24
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Mon, 17 Oct 2022 20:50:39 +0000

solve part 1 of day04

Diffstat:
A
day04/day04.pl
 | 
18
++++++++++++++++++

1 file changed, 18 insertions(+), 0 deletions(-)
diff --git a/day04/day04.pl b/day04/day04.pl
@@ -0,0 +1,18 @@
+#!/usr/local/bin/perl
+# day 2015-04
+
+use strict;
+use warnings;
+use v5.32;
+use Digest::MD5 qw(md5_hex);
+
+my $input = "bgvyzdsv";
+my $part1 = 0;
+my $md5_hash;
+
+do {
+    $part1 += 1;
+    $md5_hash = md5_hex( $input . $part1 );
+} until ( $md5_hash =~ m/\A0{5}/ );
+
+say "part 1: ", $part1;