Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
use warnings;
...
smoothsort(\@tab);

print "sorted tab = @tab\n"
  2. or download this
    #!/usr/bin/perl
use strict;
use warnings;
...
smoothsort(\@tab);

print "sorted tab = @tab\n"