Re: Checking the Ascendency/Descendency of Numeric Array of Any Size

[dk]

I like List::Util, so for example:

use List::Util qw(reduce);
sub is_asc { reduce { (defined($a) and $a < $b) ? $b : undef } @_ }
print is_asc(1,2,3,4) ? 1 : 0, "\n";
print is_asc(1,3,2,4) ? 1 : 0, "\n";

1
0

[Eimi Metamorphoumai]

But then is_asc(-2,-1,0) comes out false.

[dk]

0 is false, undef is also false, but 0 is not undef. is_asc(-2,-1,0) returns 0, not undef.

[Eimi Metamorphoumai]

But if you use it as was suggested (with a ternop ? 1 : 0), then it still evaluates false. If you're going to write a function, at least put the defined test into the function.