Year 2015

[aoc.git] / 2015 / 49.pl

diff --git a/2015/49.pl b/2015/49.pl
new file mode 100755 (executable)
index 0000000..df78893
--- /dev/null
+++ b/2015/49.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+use strict;
+
+my ($row, $col) = (2981, 3075);
+
+my $num = 20151125;
+my ($c, $r) = (1, 1);
+while ($col != $c || $row != $r) {
+       $num = $num * 252533 % 33554393;
+       $r--; $c++;
+       if (!$r) {
+               $r = $c;
+               $c = 1;
+       }
+}
+say "$r, $c = $num";