adventofcode #15 part of solution?

gistfile1.txt

sub generator(int $init, int $times, int $modulo) {
    my int $value = $init;
    -> { ($value = ($value * $times) % $modulo) +& 65535 }
}

my $a = generator(65, 16807, 2147483647);
my $b = generator(8921, 48271, 2147483647);

my int $count;
++$count if $a() == $b() for ^40_000_000;
say $count;