This task is so easy that the description is omitted.
显然,这样的题目用Perl来做再好不过了。
事实上,只需要两行代码就搞定了。
什么,你说一共有6行?好吧,我指的是While里面只需要两行。
(其实……我对Perl不怎么熟,或许可以一行就搞定)
#ZOJ3406
#LANG: Perl
while(<>)
{
s/([a-zA-Z])([a-zA-Z]+)([a-zA-Z])/$1.length($2).$3/ge;
print;
}