使用道具 举报
最初由 sunriver 发表 $perl -le 'print "RIME" if (1 x shift) !~ /^(11+)\1+$/' 19 PRIME
最初由 BBDD 发表 取模的方法当然能用,但那样的话不但无趣,而且还把perl降低到和C同样水准。 学习perl,实质上就是在学习如何用来正则表达式解决问题。在这方面,本程序做了很好的演示。
本版积分规则 发表回复 回帖后跳转到最后一页