Question

我有50,000个号码（可以是0到50,000）。我需要（这些数字的产品）MOD 1000000007.以下代码是如此微不足道，应该有其他方法。听说过“分而治之”的技巧，但不知道如何实施。

$ans *= ( $_ % 1000000007 ) foreach @array;
$ans %= 1000000007;

请建议。

Answer 1

对于小于1000000007的所有值，$num % 1000000007的结果始终为$num。因此，如果@array中的所有值都在0 .. 50,000范围内，则此类计算是多余的。您必须执行两个步骤，而不是使用*=运算符：

$ans = ($ans % 1000000007) * $_ for @array;

但是，请注意。对于任何非素数模数，总是存在模数运算导致零的风险，这当然会导致整个乘法产生零。我想你已经想过这个，因为1000000007似乎是一个素数，但我还是会提到它。

ETA：重复使用中间产品：

for (@array) {
    $ans *= $_;
    print "Before mod: $ans\n";
    $ans %= 1000000007;
    print "After mod : $ans\n";
}

请注意，您无需在此处复合运算符。

Answer 2

虽然你对数组中的每个数字$_ % 1000000007 $ans，但$ans %= 1000000007可能变得非常大，直到你看完后才foreach my $number (@array) { $ans *= ($number % 1000000007); $ans %= 1000000007; }。

为了纠正这个问题，我建议如下：

{{1}}

Answer 3

如果计算重用很重要/预期（如对TLP答案的评论中所述），那么记住该函数将有助于有效记住以前计算的结果。

请参阅Chapter 3: Caching and Memoization in Higher-Order Perl

perl中非常大的数字的快速乘法

3 个答案: