In fact, my testing shows that passing n sorted items, it only performs n comparisons.

Except kind of anomaly in ~ 5..17 range:

use strict;
use warnings;
use Chart::Gnuplot;

my @x = ( 2 .. 50 );
my @y = map { 
    my $n = 0;
    1 for sort { ++ $n; $a <=> $b } 1 .. $_;
    $n
} @x;

my $chart = Chart::Gnuplot-> new( 
    gnuplot  => 'gnuplot.exe',
    terminal => 'dumb size 60, 30',
    xrange   => [ 0, 50 ],
    yrange   => [ 0, 50 ],
    title    => 'Number of comparisons vs pre-sorted array length',
);
my $dataset = Chart::Gnuplot::DataSet->new(
    xdata => \@x,
    ydata => \@y,
    style => 'impulses',
);

__END__

      Number of comparisons vs pre-sorted array length

  50 +--------------------------------------------------+
     |         +         +          +         +       **|
     |                                              ****|
     |                                            ******|
     |                                          ********|
  40 |-+              *                       **********|
     |                *                     ************|
     |                *                   **************|
     |                *                 ****************|
     |              ***               ******************|
  30 |-+           ****             ********************|
     |            *****           **********************|
     |           ******        *************************|
     |          *******     ** *************************|
  20 |-+        *******   **** *************************|
     |        ********* ****** *************************|
     |        **************** *************************|
     |        **************** *************************|
     |       ***************** *************************|
  10 |-+    ****************** *************************|
     |    ******************** *************************|
     |    ******************** *************************|
     |   ********************* *************************|
     |  ********************** *************************|
   0 +--------------------------------------------------+
     0         10        20         30        40        50

[download]

In reply to Re^4: sort of misunderstanding of sort by Anonymous Monk
in thread sort of misunderstanding of sort by Discipulus

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.