Here's the code I used to run my test:
my @size=(100,1000,10000,100000);
foreach(@size){
my $size=$_;
print "size=$size\n";
my $now = 8;
my %url = ( monday => { @{[map(($_,1), (1..$size))]} } );
timethese(0, {
Grep => q{ $now = (sort grep {$_ <= $now} keys %{$url{'monday'}
+})[-1]; },
Ternary => q{ $now = ($now < $_ && $_ < 8 ? $_ : $now) for keys
+ %{$url{'monday'}}; },
Max => q{ foreach ( keys %{$url{'monday'}} ) { $now = $_ if $_
+> $now }; }
});
}
I am awful suspicious of my tests taking
almost the same amount of time to run no
matter how many elements there were in the
dataset.
I think I am onto something... I don't think the
code posted in teh original question really benchmarks
what the user thinks it does... I'm crafing a new reply to the
original question that should be up soon.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|