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

请您先登陆，再发跟帖！

发现Adblock插件

如要继续浏览
请支持本站 请务必在本站关闭Adblock

关闭Adblock后 请点击

请参考如何关闭Adblock

安装Adblock plus用户请点击浏览器图标
选择“Disable on www.wenxuecity.com”

安装Adblock用户请点击图标
选择“don't run on pages on this domain”