Agora testa ai com 100k elementos :)<br><br><div><br></div><div>[ ]'s</div><div><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;">Me pareceu tão rapido...<div><div><font face="'courier new', monospace">use Data::Dumper;</font></div><div><font face="'courier new', monospace">use List::Util qw(shuffle);</font></div>



<div><font face="'courier new', monospace"><br></font></div><div><font face="'courier new', monospace"> sub bogosort {</font></div><div><font face="'courier new', monospace">    my @a = @_;</font></div>



<div><font face="'courier new', monospace">    my @sorted = sort {$a <=> $b} @a;</font></div><div><font face="'courier new', monospace">    while("@a" ne "@sorted") {</font></div>



<div><font face="'courier new', monospace">       @a = shuffle(@a);</font></div><div><font face="'courier new', monospace">    }</font></div><div><font face="'courier new', monospace">    return @a;</font></div>



<div><font face="'courier new', monospace"> }</font></div><div><font face="'courier new', monospace"><br></font></div><div><font face="'courier new', monospace">@b = (4,56,8,5,2,5,6,4);</font></div>



<div><div>renato@renato-desktop:/projetos/youdb/nestle/datamotion_ps$ time perl /tmp/xxx.pl2</div><div>$VAR1 = 2;</div><div>$VAR2 = 4;</div><div>$VAR3 = 4;</div><div>$VAR4 = 5;</div><div>$VAR5 = 5;</div><div>$VAR6 = 6;</div>



<div>$VAR7 = 8;</div><div>$VAR8 = 56;</div><div><br></div><div>real<span style="white-space:pre-wrap">  </span>0m0.058s</div><div>user<span style="white-space:pre-wrap">     </span>0m0.052s</div>

<div>sys<span style="white-space:pre-wrap">       </span>0m0.000s</div></div><div><br></div><div>print Dumper  bogosort(@b);</div><div><div></div><div class="h5"><br><div class="gmail_quote">2011/5/19 Nelson Ferraz <span dir="ltr"><<a href="mailto:nferraz@gmail.com" target="_blank">nferraz@gmail.com</a>></span><br>



<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div>2011/5/19 Wesley Seidel <<a href="mailto:wesley.seidel@gmail.com" target="_blank">wesley.seidel@gmail.com</a>><br>




</div><div>> ahahaha<br>
> Se levou tudo isso com um quicksort, imagine o tempo pra fazer essa dança com um bubblesort.<br>
<br>
</div>Imagina então um bogosort. :D<br>
<br>
<a href="http://en.wikipedia.org/wiki/Bogosort" target="_blank">http://en.wikipedia.org/wiki/Bogosort</a><br>
<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>-- <br><div class="im">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>