[已分析][技巧]判断一个数是否为素数.

sunriver

$perl -le 'print "RIME" if (1 x shift) !~ /^(11+)\1+$/' 19
PRIME

KornLee

最初由 sunriver 发表
$perl -le 'print "RIME" if (1 x shift) !~ /^(11+)\1+$/' 19
PRIME

看不太明白,请解释解释:thank

BBDD

有趣，有趣。
我来分析一下吧：

perl -le 'print "RIME" if (1 x shift) !~ /^(11+)\1+$/' 19

1、先看shift：shift = shift @_ = 19

2、(1 x shift)：x 是字符串运算符，1 x 19 = "1111111111111111111"，共19个1。

3、再看/^(11+)\1+$/：这里的\1 就是前面的(11+)，这个正则表达式是用来判断前面的"111111……11111"，能否被长度大于一的子串等分。如果不是（!~），就证明它是素数，那就print "RIME"。

就是这样。

KornLee

:thank BBDD.
那用取模的方法应该也可以得到吧? :ask

BBDD

取模的方法当然能用，但那样的话不但无趣，而且还把perl降低到和C同样水准。
学习perl，实质上就是在学习如何用来正则表达式解决问题。在这方面，本程序做了很好的演示。

KornLee

最初由 BBDD 发表
取模的方法当然能用，但那样的话不但无趣，而且还把perl降低到和C同样水准。
学习perl，实质上就是在学习如何用来正则表达式解决问题。在这方面，本程序做了很好的演示。

谢谢,好好学习

sunriver

关键是正则表达式:/^(11+)\1+$/
...
$num=27;
$str=1 x $num;
if ($str =~ /^(11+)\1+$/)
{
   print "NO PRIME ",$1;
}
...
()匹配的是9个'1'..也是最大因子