Se você "e<span class="Apple-style-span" style="border-collapse: collapse; color: rgb(34, 34, 34); font-family: arial, sans-serif; font-size: 13px; ">conomizou mais performance", então você deixou o programa mais lento?</span><div>
<font class="Apple-style-span" color="#222222" face="arial, sans-serif"><span class="Apple-style-span" style="border-collapse: collapse;"><br></span></font></div><div><font class="Apple-style-span" color="#222222" face="arial, sans-serif"><span class="Apple-style-span" style="border-collapse: collapse;">[ ]'s<br>
</span></font><br><div class="gmail_quote">2011/5/19 Renato Santos <span dir="ltr"><<a href="mailto:renato.cron@gmail.com">renato.cron@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Economizei mais performance:<br><div><font face="'courier new', monospace">sub is_ordered {</font></div><div><font face="'courier new', monospace"> my $a = shift;</font></div>
<div><font face="'courier new', monospace"> my $numta = 1;</font></div><div><font face="'courier new', monospace"> for ( my $i = 1 ; $i < @{$a} ; $i++ ) {</font></div>
<div><font face="'courier new', monospace"> $numta = 0 if ( $a->[ $i - 1 ] > $a->[$i] && </font><span style="font-family:'courier new', monospace">$numta == 1</span><span style="font-family:'courier new', monospace">);</span></div>
<div><font face="'courier new', monospace"> }</font></div><div><font face="'courier new', monospace"></font><font face="'courier new', monospace"><span style="white-space:pre-wrap"></span> return 0 if !$numta;</font></div>
<div><font face="'courier new', monospace"> return 1 if </font><span style="font-family:'courier new', monospace">$numta</span><span style="font-family:'courier new', monospace">;</span></div>
<div><span style="font-family:'courier new', monospace"> return undef if (!</span><span style="font-family:'courier new', monospace">$numta || </span><span style="font-family:'courier new', monospace">$numta); # muito importante</span></div>
<div><font face="'courier new', monospace">}</font></div>
<div><br></div><div><br></div><div class="gmail_quote"><div class="im">2011/5/19 Alexei Znamensky <span dir="ltr"><<a href="mailto:russoz@gmail.com" target="_blank">russoz@gmail.com</a>></span><br></div><div><div></div>
<div class="h5"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div>já fiz um script de testar bogosort pra voce</div><div><br></div><a href="https://github.com/russoz/perltests/blob/master/test-sort-bogosort.pl" target="_blank">https://github.com/russoz/perltests/blob/master/test-sort-bogosort.pl</a><div>
<div></div><div><br>
<br><div class="gmail_quote">2011/5/19 Renato Santos <span dir="ltr"><<a href="mailto:renato.cron@gmail.com" target="_blank">renato.cron@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Haha<div>qual seria o titulo? como economizar performance em perl ?</div><div>=D<div><div></div><div><br><br><div class="gmail_quote">2011/5/19 Wesley Seidel <span dir="ltr"><<a href="mailto:wesley.seidel@gmail.com" target="_blank">wesley.seidel@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Ae Renato, já é material pra um post em um blog, se vc tiver... ;)<br><br><div class="gmail_quote"><div>2011/5/19 Renato Santos <span dir="ltr"><<a href="mailto:renato.cron@gmail.com" target="_blank">renato.cron@gmail.com</a>></span><br>
</div><div><div></div><div><blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204, 204, 204);padding-left:1ex"><div><font face="'courier new', monospace">%CPU %MEM TIME+ COMMAND </font></div>
<font face="'courier new', monospace">100 0.1 208:28.98 perl /tmp/xxx.pl2</font><br>
<div><div><div></div><div><br><div class="gmail_quote">2011/5/19 Eden Cardim <span dir="ltr"><<a href="mailto:edencardim@gmail.com" target="_blank">edencardim@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204, 204, 204);padding-left:1ex">
>>>>> "Wesley" == Wesley Seidel <<a href="mailto:wesley.seidel@gmail.com" target="_blank">wesley.seidel@gmail.com</a>> writes:<br>
<br>
Wesley> ahahaha Se levou tudo isso com um quicksort, imagine o tempo<br>
Wesley> pra fazer essa dança com um bubblesort. :D<br>
<br>
Confere aí: <a href="http://bit.ly/iCAE1x" target="_blank">http://bit.ly/iCAE1x</a><br>
<font color="#888888"><br>
--<br>
Eden Cardim Need help with your Catalyst or DBIx::Class project?<br>
Code Monkey <a href="http://www.shadowcat.co.uk/catalyst/" target="_blank">http://www.shadowcat.co.uk/catalyst/</a><br>
Shadowcat Systems Ltd. Want a managed development or deployment platform?<br>
<a href="http://blog.edencardim.com/" target="_blank">http://blog.edencardim.com/</a> <a href="http://www.shadowcat.co.uk/servers/" target="_blank">http://www.shadowcat.co.uk/servers/</a><br>
</font><div><div></div><div>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
</div></div></blockquote></div><br><br clear="all"><br></div></div><div>-- <br>Renato Santos<br><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a><br>
</div></div>
<br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div></div></div><br><br clear="all"><br>-- <br><div><div></div><div>Wesley Seidel Carvalho<br>11-6671-6118<br>11-8169-1163<br><a href="http://twitter.com/wseidel" target="_blank">http://twitter.com/wseidel</a><br>
<br><br>
</div></div><br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br><br clear="all"><br>-- <br>Renato Santos<br><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a><br>
</div></div></div>
<br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br><br clear="all"><br>-- <br></div></div><div><div></div><div><font face="georgia, serif">Alexei "RUSSOZ" Znamensky </font><div><font face="georgia, serif">[russoz_gmail_com] [<a href="http://russoz.wordpress.com" target="_blank">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz" target="_blank">www.flickr.com/photos/alexeiz</a>] [<a href="https://github.com/russoz" target="_blank">https://github.com/russoz</a>]<br>
<span style="border-collapse:collapse"><div>Only love / Can bring the rain / That makes you yearn to the sky</div></span></font></div><br>
</div></div><br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div></div></div><div><div></div><div class="h5"><br><br clear="all"><br>-- <br>Renato Santos<br><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a><br>
</div></div><br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br><br clear="all"><br>-- <br>Bruno C. Buss<br><a href="http://brunobuss.wordpress.com/">http://brunobuss.wordpress.com/</a><br><a href="http://www.dcc.ufrj.br/~brunobuss/">http://www.dcc.ufrj.br/~brunobuss/</a><br>
</div>