cron, melhor gerar com números aleatórios<br><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;">
ta rodando<div>mas o resultado eu sei, será 60 elementos ordernados ^^<br><div><font size="1" face="'courier new', monospace"><br></font></div><div><div class="im"><div><font size="1" face="'courier new', monospace">use Data::Dumper;</font></div>
<div><font size="1" face="'courier new', monospace">use List::Util qw(shuffle);</font></div><div><font size="1" face="'courier new', monospace"><br></font></div>
<div><font size="1" face="'courier new', monospace"> sub bogosort {</font></div><div><font size="1" face="'courier new', monospace"> my @a = @_;</font></div>
<div><font size="1" face="'courier new', monospace"> my @sorted = sort {$a <=> $b} @a;</font></div></div><div><font size="1" face="'courier new', monospace"><span style="white-space:pre-wrap"> </span>print "Em ordem é @sorted, mas vale a pena conferir se você está com sorte\n";</font></div>
<div class="im">
<div><font size="1" face="'courier new', monospace"> while("@a" ne "@sorted") {</font></div><div><font size="1" face="'courier new', monospace"> @a = shuffle(@a);</font></div>
<div><font size="1" face="'courier new', monospace"> }</font></div><div><font size="1" face="'courier new', monospace"> return @a;</font></div><div>
<font size="1" face="'courier new', monospace"> }</font></div>
<div><font size="1" face="'courier new', monospace"><br></font></div></div><div><font size="1" face="'courier new', monospace">@b = (30..60, 0..30); # too complex order</font></div>
<div><font size="1" face="'courier new', monospace"><br></font></div><div><font size="1" face="'courier new', monospace">print Dumper bogosort(@b);</font></div>
</div><div class="im"><div><font size="1" face="'courier new', monospace">renato@renato-desktop:/projetos/youdb/nestle/datamotion_ps$ time perl /tmp/xxx.pl2</font></div></div><div><font size="1" face="'courier new', monospace">Em ordem é 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60, mas vale a pena conferir se você está com sorte</font></div>
<div><br></div></div><div><div></div><div class="h5"><div><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">
Não precisa ser 100k não.<br>Ponha apenas 60 elementos e dê-nos o resultado. <br>:D<div><div></div><div><br><br><div class="gmail_quote">2011/5/19 Bruno Buss <span dir="ltr"><<a href="mailto:bruno.buss@gmail.com" target="_blank">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>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">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" 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>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">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><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>