2017/29.pl

   1 #!/usr/bin/perl
   2
   3 use v5.30;
   4 use strict;
   5
   6 my @start = (883, 879);
   7 # my @start = (65, 8921);
   8 my @f = (16807, 48271);
   9
  10 sub gen {
  11         my ($i,$gen) = @_;
  12         $start[$i] = $start[$i] * $f[$i] % 2147483647;
  13         return $start[$i] & 0xFFFF;
  14 }
  15 my $matches = 0;
  16 for (1 .. 40_000_000) {
  17         $matches++ if gen(0, $_) == gen(1, $_);
  18 }
  19
  20 say $matches;