6 my @start = (883, 879);
7 # my @start = (65, 8921);
8 my @f = (16807, 48271);
13 $start[$i] = $start[$i] * $f[$i] % 2147483647
14 } while ($start[$i] % (1 << (2+$i)) != 0);
15 return $start[$i] & 0xFFFF;
18 for (1 .. 5_000_000) {
19 $matches++ if gen(0, $_) == gen(1, $_);