perl -E'@a=split//,pop;say@a[0..abs]for 0..$#a,-@a+2..0' Perl<br><br>46!<br><br><div><span class="gmail_quote">2008/3/13, Eden Cardim <<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>>:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
2008/3/13 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>>:<br> <br>> (na verdade 50... esquecí de botar um -n no meu echo..)<br> <br> <br>perl -E'@a=split//,pop;say@a[0..abs]for 0..$#a,-$#a+1..0' Perl<br>
<br> 47<br> <br> mas tenho quase certeza que tem como fazer muito menos com outra abordagem.<br> <br><br> --<br> <a href="http://edenc.vox.com">edenc.vox.com</a><br> <br>_______________________________________________<br>
Rio-pm mailing list<br> <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br> <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br> </blockquote></div><br><br clear="all">
<br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a>