2a:<br><br>perl -E '@a=split//,shift;say@a[0..$_],$/for 0..$#a,reverse 0..$#a-1' Perl<br><br><div><span class="gmail_quote">Em 12/03/08, <b class="gmail_sendername">Fernando Oliveira</b> <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>> escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Minha 1a tacada:<br>perl -e '@a=split//,shift;for(0..$#a,reverse 0..$#a-1){print@a[0..$_],$/}' Perl<br>ou<br>perl -E '@a=split//,shift;for(0..$#a,reverse 0..$#a-1){say@a[0..$_]}' Perl<br><br><div><span class="gmail_quote">Em 12/03/08, <b class="gmail_sendername">breno</b> <<a href="mailto:breno@rio.pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">breno@rio.pm.org</a>> escreveu:</span><div>
<span class="e" id="q_118a50700d9185b4_1"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Para os que querem se distrair no fim do expediente e aliviar a cabeça<br> dos problemas, um pouco de esporte :-)<br> <br> O programa deve receber uma palavra e exibir no terminal, a cada<br> linha, a substring com um número crescente e depois decrescente de<br>
caracteres.<br> <br> Exemplo canônico (a.k.a "minha primeira e tosca tacada"), com<br> grosseiros 81 caracteres:<br> <br> $ perl -e '$_=shift;for$i(1..length){push@a,substr($_,0,$i).$/}print@a;pop@a;print<br>
reverse@a' Perl<br> P<br> Pe<br> Per<br> Perl<br> Per<br> Pe<br> P<br> <br> ou o equivalente em Perl 5.10<br> <br> $ perl -E '$_=shift;for$i(1..length){push@a,substr($_,0,$i)}say@a;pop@a;say<br> reverse@a' Perl<br>
<br> <br> E aí, pessoal? Tacadas? Será que Adriano vai conseguir superar o<br> Fernando? Será que a Mila vai passar a frente de todos? Será que um<br> azarão ou novato vai tomar a liderança???<br> <br> <br> []s<br> <br>
-b<br>
_______________________________________________<br> Rio-pm mailing list<br> <a href="mailto:Rio-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Rio-pm@pm.org</a><br> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</blockquote></span></div></div><span class="sg"><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://perl-e.org</a>
</span></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>