(na verdade 50... esquecí de botar um -n no meu echo..)<br><br><div><span class="gmail_quote">Em 13/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;">
Tirei o reverse!!!<br><br>perl -E '@a=split//,shift;say@a[0..abs]for 0..$#a,-$#a+1..0' Perl<br><br>51 caracteres! Uma boa ideia!<div><span class="e" id="q_118a7a50b1ec0083_1"><br><br><div><span class="gmail_quote">Em 13/03/08, <b class="gmail_sendername">Fernando Oliveira</b> <<a href="mailto:fernandocorrea@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">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;">
alguém sabe me dizer se no perl6 agente vai poder fazer coisa tipo isso 10 .. 0 ao invez de reverse 0 .. 10 ?<br><br><div><span class="gmail_quote">Em 13/03/08, <b class="gmail_sendername">Fernando Oliveira</b> <<a href="mailto:fernandocorrea@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">fernandocorrea@gmail.com</a>> escreveu:</span><div>
<span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
eu esqueci de tirar o $/ do say()! A minha intenção era tirar, mas eu esquecí! Eu tava em SP, no PC q eu tava, não tinha o 5.10!<br>mas o q tá me matando é esse reverse... é muito grande!<br><br><div><span class="gmail_quote">Em 13/03/08, <b class="gmail_sendername">Gabriel Vieira</b> <<a href="mailto:gabriel.vieira@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">gabriel.vieira@gmail.com</a>> escreveu:</span><div>
<span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
perl -E '@a=split//,shift;say@a[0..$_]for 0..$#a,reverse 0..$#a-1' Perl<br> <br> <br>Até tu camila?! :)<br> <br> 2008/3/12 camila m. <<a href="mailto:misskaapow@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">misskaapow@gmail.com</a>>:<br>
<br>
> poxa, fê, deu mole:<br> > perl -le '@a=split//,shift;print@a[o..$_]for(0..$#a,reverse 0..$#a-1)' Perl<br> ><br> ><br> ><br> > On 12/03/2008, Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">fernandocorrea@gmail.com</a>> wrote:<br>
> > ninguém mais vai brincar não?! :(<br> > ><br> > ><br> > ><br> > > Em 12/03/08, Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">fernandocorrea@gmail.com</a>> escreveu:<br>
> > > 2a:<br> > > ><br> > > > perl -E '@a=split//,shift;say@a[0..$_],$/for 0..$#a,reverse 0..$#a-1'<br> > Perl<br> > > ><br> > > ><br> > > > Em 12/03/08, Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">fernandocorrea@gmail.com</a>> escreveu:<br>
> > ><br> > > > > Minha 1a tacada:<br> > > > > perl -e '@a=split//,shift;for(0..$#a,reverse<br> > 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..$_]}'<br>
> Perl<br> > > > ><br> > > > ><br> > > > > Em 12/03/08, breno <<a href="mailto:breno@rio.pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">breno@rio.pm.org</a>> escreveu:<br>
> > > ><br> > > > > > Para os que querem se distrair no fim do expediente e aliviar a<br>
> 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<br> > '$_=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<br> > '$_=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>
> > > > ><br> > > > ><br> > > > ><br> > > > ><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><br> > > ><br> > > ><br> > > ><br> > > ><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><br> > ><br> > ><br> > ><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><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>
> ><br> ><br> ><br> ><br> > --<br> > camila m.<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>
><br> <br> <br> <br> --<br> <br>Gabriel Vieira<br> <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><br><br clear="all"><br>-- <br><div><span>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></div></blockquote></span></div></div><br><br clear="all"><br>-- <br><div><span>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></div></blockquote></div><br><br clear="all"><br></span></div>-- <br><div><span class="e" id="q_118a7a50b1ec0083_3">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></div></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>