Me pareceu tão rapido...<div><div><font class="Apple-style-span" face="'courier new', monospace">use Data::Dumper;</font></div><div><font class="Apple-style-span" face="'courier new', monospace">use List::Util qw(shuffle);</font></div>

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

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

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

<div><font class="Apple-style-span" face="'courier new', monospace"> }</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" 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 class="Apple-tab-span" style="white-space:pre">      </span>0m0.058s</div><div>user<span class="Apple-tab-span" style="white-space:pre"> </span>0m0.052s</div>

<div>sys<span class="Apple-tab-span" style="white-space:pre">   </span>0m0.000s</div></div><div><br></div><div>print Dumper  bogosort(@b);</div><br><div class="gmail_quote">2011/5/19 Nelson Ferraz <span dir="ltr"><<a href="mailto:nferraz@gmail.com">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 class="im">2011/5/19 Wesley Seidel <<a href="mailto:wesley.seidel@gmail.com">wesley.seidel@gmail.com</a>><br>


</div><div class="im">> 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 class="h5">=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>
</div></div></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>