The rest of Year 2017

[aoc.git] / 2017 / 46.pl

diff --git a/2017/46.pl b/2017/46.pl
new file mode 100755 (executable)
index 0000000..0a8be70
--- /dev/null
+++ b/2017/46.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use v5.30;
+use strict;
+
+open my $pfh, '<46-primes.txt' or die;
+my %primes = map { chomp; $_ => 1 } <$pfh>;
+my $b = 109300;
+my $c = 126300;
+
+my $h = 0;
+while ($b <= $c) {
+       $h++ if !defined $primes{$b};
+       $b += 17;
+}
+say $h;