in reply to Checking the Ascendency/Descendency of Numeric Array of Any Size

sub is_ascending {
  $_ != shift and return for sort {$a <=> $b} @_;
  1;
}

[download]
  • Comment on Re: Checking the Ascendency/Descendency of Numeric Array of Any Size
  • Download Code

In Section Seekers of Perl Wisdom