Help for this page

Select Code to Download


  1. or download this
    package SmoothSort;
use warnings;
...
}

__PACKAGE__
  2. or download this
    #!/usr/bin/perl
use warnings;
...
say "@arr";

is_deeply(\@arr, [ 1 .. 10000 ], 'sorted');