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

sub is_asc {
    ( undef, my @lagged) = @_;
    $_ >= shift or return 0 for @lagged;
    return 1;
}

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

In Section Seekers of Perl Wisdom