Help for this page

Select Code to Download


  1. or download this
          Original Array:   14  11  10  13  11
       New Positions:    4   1   0   3   2

       Ordered Array:   10  11  11  13  14
  Original Positions:    2   1   4   3   0
  2. or download this
    #!/usr/bin/env perl

...
    my $inval = $_[0] ; 
    defined $inval && $inval =~ /^[+-]?\d+(\.\d+)?$/;
}