2008/3/13 Fernando Oliveira <fernandocorrea em gmail.com>: > (na verdade 50... esquecí de botar um -n no meu echo..) perl -E'@a=split//,pop;say em a[0..abs]for 0..$#a,-$#a+1..0' Perl 47 mas tenho quase certeza que tem como fazer muito menos com outra abordagem. -- edenc.vox.com