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

請您先登陸，再發跟帖！