Não precisa ser 100k não.<br>Ponha apenas 60 elementos e dê-nos o resultado. <br>:D<br><br><div class="gmail_quote">2011/5/19 Bruno Buss <span dir="ltr"><<a href="mailto:bruno.buss@gmail.com">bruno.buss@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;">Agora testa ai com 100k elementos :)<br><br><div><br></div><div>[ ]'s</div><div><br><div class="gmail_quote">
<div class="im">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 class="h5"><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); 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><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: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); 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>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>Bruno C. Buss<br><a href="http://brunobuss.wordpress.com/" target="_blank">http://brunobuss.wordpress.com/</a><br><a href="http://www.dcc.ufrj.br/%7Ebrunobuss/" target="_blank">http://www.dcc.ufrj.br/~brunobuss/</a><br>
</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>Wesley Seidel Carvalho<br>11-6671-6118<br>11-8169-1163<br><a href="http://twitter.com/wseidel">http://twitter.com/wseidel</a><br><br><br>