claro, mas tem que falar bonito
2011/5/19 Bruno Buss
> Se você "economizou mais performance", então você deixou o programa mais
> lento?
>
> [ ]'s
>
> 2011/5/19 Renato Santos
>
>> Economizei mais performance:
>> sub is_ordered {
>> my $a = shift;
>> my $numta = 1;
>> for ( my $i = 1
Se você "economizou mais performance", então você deixou o programa mais
lento?
[ ]'s
2011/5/19 Renato Santos
> Economizei mais performance:
> sub is_ordered {
> my $a = shift;
> my $numta = 1;
> for ( my $i = 1 ; $i < @{$a} ; $i++ ) {
> $numta = 0 if ( $a->[ $i - 1 ] > $a->
Economizei mais performance:
sub is_ordered {
my $a = shift;
my $numta = 1;
for ( my $i = 1 ; $i < @{$a} ; $i++ ) {
$numta = 0 if ( $a->[ $i - 1 ] > $a->[$i] && $numta == 1);
}
return 0 if !$numta;
return 1 if $numta;
return undef if (!$numta || $numta); # muito
"ganho de performance" ??? pra que?? é um teste pra compilar modulo do
cpan??? voce esta fazendo instalacoes de CPAN dentro de um loop com numeros
grandes? rsrsrs
2011/5/19 Stanislaw Pusep
> Hahahaha, great minds think alike!!!
> Aliás, acabei de publicar a versão 0.2, com suporte (opcional)
> a
continua rodando...
2011/5/19 Wesley Seidel
>
>
> 2011/5/19 Renato Santos
>
>> Acho que não faz muita diferença ^ ^
>
>
> Se você estiver com sorte ( mas muita sorte mesmo, daquela de ganhar na
> mega-sena), utilizando a entrada aleatória, é provável q o chute inicial
> seja exatamente a sequen
2011/5/19 Renato Santos
> Acho que não faz muita diferença ^ ^
Se você estiver com sorte ( mas muita sorte mesmo, daquela de ganhar na
mega-sena), utilizando a entrada aleatória, é provável q o chute inicial
seja exatamente a sequencia ordenada. Porém do jeitoq que vc fez, relamente
isso não ac
Acho que não faz muita diferença ^ ^
2011/5/19 Alexei Znamensky
> cron, melhor gerar com números aleatórios
>
>
> 2011/5/19 Renato Santos
>
>> ta rodando
>> mas o resultado eu sei, será 60 elementos ordernados ^^
>>
>> use Data::Dumper;
>> use List::Util qw(shuffle);
>>
>> sub bogosort {
>>
cron, melhor gerar com números aleatórios
2011/5/19 Renato Santos
> ta rodando
> mas o resultado eu sei, será 60 elementos ordernados ^^
>
> use Data::Dumper;
> use List::Util qw(shuffle);
>
> sub bogosort {
> my @a = @_;
> my @sorted = sort {$a <=> $b} @a;
> print "Em ordem é @sorted,
So pra lembrar, ja rodei algo semelhante:
20m55.517s
Este foi o tempo que demorou para rodar o KickSort em Java.
Acho que estava com bastante sorte no dia
2011/5/19 Renato Santos
> ta rodando
> mas o resultado eu sei, será 60 elementos ordernados ^^
>
> use Data::Dumper;
> use List::Util qw(s
ta rodando
mas o resultado eu sei, será 60 elementos ordernados ^^
use Data::Dumper;
use List::Util qw(shuffle);
sub bogosort {
my @a = @_;
my @sorted = sort {$a <=> $b} @a;
print "Em ordem é @sorted, mas vale a pena conferir se você está com
sorte\n";
while("@a" ne "@sorted") {
Não precisa ser 100k não.
Ponha apenas 60 elementos e dê-nos o resultado.
:D
2011/5/19 Bruno Buss
> Agora testa ai com 100k elementos :)
>
>
> [ ]'s
>
> 2011/5/19 Renato Santos
>
>> Me pareceu tão rapido...
>> use Data::Dumper;
>> use List::Util qw(shuffle);
>>
>> sub bogosort {
>> my @a =
Agora testa ai com 100k elementos :)
[ ]'s
2011/5/19 Renato Santos
> Me pareceu tão rapido...
> use Data::Dumper;
> use List::Util qw(shuffle);
>
> sub bogosort {
> my @a = @_;
> my @sorted = sort {$a <=> $b} @a;
> while("@a" ne "@sorted") {
>@a = shuffle(@a);
> }
>
Me pareceu tão rapido...
use Data::Dumper;
use List::Util qw(shuffle);
sub bogosort {
my @a = @_;
my @sorted = sort {$a <=> $b} @a;
while("@a" ne "@sorted") {
@a = shuffle(@a);
}
return @a;
}
@b = (4,56,8,5,2,5,6,4);
renato@renato-desktop:/projetos/youdb/nestle/datamo
2011/5/19 Wesley Seidel
> ahahaha
> Se levou tudo isso com um quicksort, imagine o tempo pra fazer essa dança com
> um bubblesort.
Imagina então um bogosort. :D
http://en.wikipedia.org/wiki/Bogosort
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list:
Hahahaha, great minds think alike!!!
Aliás, acabei de publicar a versão 0.2, com suporte (opcional)
a Unicode::CheckUTF8, do Brad Fitzpatrick (nessa implementação, eu confio
:P).
Não dá grande ganho de performance, apesar de ser XS (o gargalo é outro),
mas deriva do código oficial do Unicode Consor
Em 19 de maio de 2011 04:28, Wallace Reis escreveu:
> On 18/05/2011, at 19:12, Thiago Yukio Kikuchi Oliveira wrote:
> > Olá,
> >
> > Alguém da lista usa MooseX::Declare em produção?
> > Qual a opinião de vocês sobre o módulo?
>
>
> Eu uso bastante em testes, pra fazer simulação de objetos.
>
Out
On 18/05/2011, at 19:12, Thiago Yukio Kikuchi Oliveira wrote:
> Olá,
>
> Alguém da lista usa MooseX::Declare em produção?
> Qual a opinião de vocês sobre o módulo?
Eu uso bastante em testes, pra fazer simulação de objetos.
Ab,
--
Wallace Reis | wreis
wall...@reis.me
http://www.about.me/wallace
17 matches
Mail list logo
