A coworker came to me with a very simple question: How would you assign the maximum of two numbers? I.e., $a = the larger of $b and $c. Here's what I found: 
            Rate    sort   sort2    loop ternary    List
sort    112734/s      --     -1%    -39%    -48%    -67%
sort2   113778/s      1%      --    -39%    -48%    -67%
loop    185579/s     65%     63%      --    -15%    -46%
ternary 217375/s     93%     91%     17%      --    -37%
List    344926/s    206%    203%     86%     59%      --

[download]
here's the benchmark script: 
use List::Util qw(max);

sub assignmax {
    @a = sort{$b<=>$a}@_;
    shift @a;
}
sub assignmax5 {
    @a = sort@_;
    pop @a;
}

sub assignmax2 {
    ($b,$c) = @_;
    $b > $c ? $b : $c;
}

sub assignmax3 {
    max(@_);
}

sub assignmax4 {
    my $a=undef;
    for (@_) {
        $a = $_ if $_ > $a;
    }
    $a;
}

@r = map {int rand 1000}(0..1);


use Benchmark qw(cmpthese);
cmpthese -1,{
    'sort' => sub {assignmax(@r)},
    'sort2' => sub {assignmax5(@r)},
    'ternary' => sub {assignmax2(@r)},
    'List' => sub {assignmax3(@r)},
    'loop' => sub {assignmax4(@r)},
};

[download]


So, can you think of any other ways, and are any of them faster than List::Util?

update: for those who think this is too trivial a thought, so was watching mold grow until it was turned into penicillin.

In reply to assigning the maximum of two numbers by bageler

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.