aoc2015

commit 8428b1f91fbddff5b33d12faccedf1f9b9ce1f96
parent 3a65d1e8f734425b294baa2b68278416afc9131d
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Fri, 11 Nov 2022 14:10:46 +0000

solve part 1 of day20

Diffstat:
A
day20/day20.pl
 | 
15
+++++++++++++++

1 file changed, 15 insertions(+), 0 deletions(-)
diff --git a/day20/day20.pl b/day20/day20.pl
@@ -0,0 +1,15 @@
+#!/usr/local/bin/perl
+# day 2015-20
+
+use strict;
+use warnings;
+use v5.32;
+use lib '.';
+use Math::Prime::Util qw( divisors );
+use List::Util        qw( sum );
+
+my $input        = 33100000;
+my $house_number = 1;
+
+$house_number++ while ( sum( divisors( $house_number ) ) * 10 < $input );
+say "part 1: ", $house_number;