Se você "economizou mais performance", então você deixou o programa mais lento?
[ ]'s 2011/5/19 Renato Santos <renato.c...@gmail.com> > 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 importante > } > > > 2011/5/19 Alexei Znamensky <rus...@gmail.com> > >> já fiz um script de testar bogosort pra voce >> >> https://github.com/russoz/perltests/blob/master/test-sort-bogosort.pl >> >> >> 2011/5/19 Renato Santos <renato.c...@gmail.com> >> >>> Haha >>> qual seria o titulo? como economizar performance em perl ? >>> =D >>> >>> >>> 2011/5/19 Wesley Seidel <wesley.sei...@gmail.com> >>> >>>> Ae Renato, já é material pra um post em um blog, se vc tiver... ;) >>>> >>>> 2011/5/19 Renato Santos <renato.c...@gmail.com> >>>> >>>>> %CPU %MEM TIME+ COMMAND >>>>> 100 0.1 208:28.98 perl /tmp/xxx.pl2 >>>>> >>>>> 2011/5/19 Eden Cardim <edencar...@gmail.com> >>>>> >>>>>> >>>>> "Wesley" == Wesley Seidel <wesley.sei...@gmail.com> writes: >>>>>> >>>>>> Wesley> ahahaha Se levou tudo isso com um quicksort, imagine o >>>>>> tempo >>>>>> Wesley> pra fazer essa dança com um bubblesort. :D >>>>>> >>>>>> Confere aí: http://bit.ly/iCAE1x >>>>>> >>>>>> -- >>>>>> Eden Cardim Need help with your Catalyst or DBIx::Class >>>>>> project? >>>>>> Code Monkey http://www.shadowcat.co.uk/catalyst/ >>>>>> Shadowcat Systems Ltd. Want a managed development or deployment >>>>>> platform? >>>>>> http://blog.edencardim.com/ >>>>>> http://www.shadowcat.co.uk/servers/ >>>>>> =begin disclaimer >>>>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>>>>> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org >>>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>>>>> =end disclaimer >>>>>> >>>>> >>>>> >>>>> >>>>> -- >>>>> Renato Santos >>>>> http://www.renatocron.com/blog/ >>>>> >>>>> =begin disclaimer >>>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>>>> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org >>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>>>> =end disclaimer >>>>> >>>>> >>>> >>>> >>>> -- >>>> Wesley Seidel Carvalho >>>> 11-6671-6118 >>>> 11-8169-1163 >>>> http://twitter.com/wseidel >>>> >>>> >>>> >>>> =begin disclaimer >>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>>> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org >>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>>> =end disclaimer >>>> >>>> >>> >>> >>> -- >>> Renato Santos >>> http://www.renatocron.com/blog/ >>> >>> =begin disclaimer >>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org >>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>> =end disclaimer >>> >>> >> >> >> -- >> Alexei "RUSSOZ" Znamensky >> [russoz_gmail_com] [russoz.wordpress.com] [www.flickr.com/photos/alexeiz] >> [https://github.com/russoz] >> Only love / Can bring the rain / That makes you yearn to the sky >> >> >> =begin disclaimer >> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org >> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >> =end disclaimer >> >> > > > -- > Renato Santos > http://www.renatocron.com/blog/ > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > -- Bruno C. Buss http://brunobuss.wordpress.com/ http://www.dcc.ufrj.br/~brunobuss/
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer