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

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
[download]

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

Replies are listed 'Best First'.
Re^2: Checking the Ascendency/Descendency of Numeric Array of Any Size by Eimi Metamorphoumai (Deacon) on Mar 23, 2007 at 15:40 UTC
But then `is_asc(-2,-1,0)` comes out false.	[reply] [d/l]
Re^3: Checking the Ascendency/Descendency of Numeric Array of Any Size by dk (Chaplain) on Mar 23, 2007 at 17:31 UTC
0 is false, undef is also false, but 0 is not undef. is_asc(-2,-1,0) returns 0, not undef.	[reply]
Re^4: Checking the Ascendency/Descendency of Numeric Array of Any Size by Eimi Metamorphoumai (Deacon) on Mar 23, 2007 at 18:04 UTC
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.	[reply] [d/l] [select]
A reply falls below the community's threshold of quality. You may see it by logging in.