2015/49.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4 use strict;
   5
   6 my ($row, $col) = (2981, 3075);
   7
   8 my $num = 20151125;
   9 my ($c, $r) = (1, 1);
  10 while ($col != $c || $row != $r) {
  11         $num = $num * 252533 % 33554393;
  12         $r--; $c++;
  13         if (!$r) {
  14                 $r = $c;
  15                 $c = 1;
  16         }
  17 }
  18 say "$r, $c = $num";