perl的

来源: 东瓜太郎 于 2009-07-24 11:54:18 [] [旧帖] [给我悄悄话] 阅读数 : (118 bytes)

打印Yes如果是大于2的质数

echo 11 | perl -ne 'print $_ == ($i + 2) ? "yes" : "" while ($_ % (2 + $i ++));'

所有跟帖： 

• cool! -botong- ♂ 给 botong 发送悄悄话 botong 的博客首页 (0 bytes) () 07/24/2009 postreply 12:57:27

请您先登陆，再发跟帖！