Help for this page

Select Code to Download


  1. or download this
    use List::Util::IsSorted 'is_sorted';
print is_sorted { $a <=> $b } 1, 3, 5, 5, 8;   # prints 1
  2. or download this
    package List::Util::IsSorted;

...
=back

=cut