perl 中 SPOJ 出现计数的速度问题

Question

我在执行与此类似的任务时遇到问题： click (translated)（分配给我的测试更大，时间限制更短）。任务的快速翻译：

编写一个程序，检查给定数字在给定序列中出现的次数。

输入：给定数字，序列中有多少个数字，数字的序列

输出：出现次数

到目前为止我的解决方案：

1：

#!/usr/bin/env perl

while (<>) {
    $in = $_;
    @nums = split / /, $in, 3;

    $what = shift @nums;
    shift @nums;
    $rest = shift @nums;
    $rest = " ".$rest." ";

    $sum = () = $rest =~ /(?<=\s)$what(?=\s)/g;

    print $sum;
    print "\n";
}

2：

#!/usr/bin/env perl

while (<>) {
    $in = $_;
    @nums = split / /, $in, 3;

    $what = shift @nums;
    shift @nums;
    $rest = shift @nums;
    $rest = " ".$rest." ";

    if(!$reg{$what}){
        $reg{$what} = qr/(?<=\s)$what(?=\s)/;
    }
    $sum = () = $rest =~ /$reg{$what}/g;

    print $sum;
    print "\n";
}

我还尝试了蛮力方法、哈希表、grep... 都超过了给定的时间限制，而且我不知道如何编写比上述两个更快的方法。有什么想法吗？

编辑：摆脱复制列表后（结果数字也可以是负数）：

#!/usr/bin/env perl

while ($line = <>) {
        $line =~ s/^(-?\d+) \d+//;
        $what = $1;

        $sum = () = $line =~ / $what\b/g;

    print $sum;
    print "\n";
}

edit2：通过http://www.chengfu.net/2005/10/count-occurrences-perl/：

print $sum = (($line =~ s/ $1\b//g)+0);

产生的代码比以下代码快 2 倍：

print $sum = () = $line =~ / $1\b/g;

现在可以使用了，谢谢:)

Answer 1

一方面，您正在做大量的复制工作。每次您在第一个示例中复制大字符串时，我都会标记：

while (<>) {
    $in = $_;                   # COPY
    @nums = split / /, $in, 3;  # COPY

    $what = shift @nums;
    shift @nums;
    $rest = shift @nums;        # COPY
    $rest = " ".$rest." ";      # COPY

    $sum = () = $rest =~ /(?<=\s)$what(?=\s)/g;

    print $sum;
    print "\n";
}

为了加快速度，请避免复制。例如，使用while ($in = <>)（或者直接跳过$in，使用$_）。

为了提取$what 和计数，我想我会尝试这个而不是split：

$in =~ s/^(\d+) \d+//;
$what = $1;

不要在前后添加空格，只需使用\b 而不是带有\s 的环视。

    $sum = () = $in =~ /\b$what\b/g;