Relamente,,, a msg chegou atrasada :D<br><br><br>Obrigada pela dica... nunca tinha usado <br><pre><tt><tt>use Benchmark qw(:all);<br><br><br>Thanks.. :D<br></tt></tt></pre><br><b><i>Igor Sutton Lopes &lt;igor.sutton@gmail.com&gt;</i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> <br>On 2007/04/09, at 16:42, Patty Silva wrote:<br><br>&gt; Qual seria o + eficiente?<br>&gt;<br><br>Talvez você não tenha lido minha resposta antes, mas List::Util sum()  <br>é mais eficiente pois utiliza XS.<br><br><code><br>use strict;<br>use warnings;<br><br>use List::Util qw(sum);<br>use Benchmark qw(:all);<br><br>my @numbers = ( 1 .. 1_000 );<br><br>cmpthese(<br>     -3,<br>     {<br>         'map' =&gt; sub {<br>             my $result;<br>             map { $result += $_ } @numbers;<br>         },<br>         'for' =&gt; sub {<br>             my $result;<br>             $result += $_ for @numbers;<br>        
 },<br>         'sum' =&gt; sub {<br>             my $result = sum(@numbers);<br>         },<br>     }<br>);<br></code><br><br>Resultado:<br><br>         Rate   map   for   sum<br>map   5269/s    --  -12%  -97%<br>for   5986/s   14%    --  -96%<br>sum 153292/s 2809% 2461%    --<br><br>--<br>Igor Sutton<br>igor.sutton@gmail.com<br><br><br><br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm</blockquote><br><p>&#32;__________________________________________________<br>Fale com seus amigos  de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/