perl的

來源: 於 2009-07-24 11:54:18 [舊帖] [給我悄悄話] 本文已被閱讀：次

打印Yes如果是大於2的質數

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