monkfan:

Here's a snippet of code that will check the monotonicity of a series and return the direction, too. If you only want 0/1, you can simply wrap the final return value with abs(...).

#!/usr/bin/perl -w
use strict;
use warnings;

sub check_monotonicity {
        # Return 0 if series is non-monotonic, +1 if it's
        # an increasing series, -1 if it decreases.

        my $dir = shift;

        $dir = shift            if ! $dir;
        return 0                if ! $dir;

        my $next = shift;
        return 0                if ! ($next - $dir);

        my $sign = ($next - $dir) / abs($next - $dir);
        $dir = $next;

        while ($next = shift) {
                return 0        unless ($next - $dir) * $sign > 0;
                $dir = $next;
        }
        return $sign;
}

my @a = (0, 0, 0);
print check_monotonicity(@a), ": ", join(', ',@a), "\n";

@a = (0, 2, 4, 6, 8);
print check_monotonicity(@a),": ", join(', ',@a),  "\n";

@a = (1, 3, 5, 7, 9, 11);
print check_monotonicity(@a),": ", join(', ',@a),  "\n";

@a = (10, 9, 8, 7, 6, 5);
print check_monotonicity(@a),": ", join(', ',@a),  "\n";

@a = (5, 3, 1, -1, -3, -5);
print check_monotonicity(@a), ": ", join(', ',@a), "\n";

@a = (1, 2, 3, 3, 4);
print check_monotonicity(@a), ": ", join(', ',@a), "\n";
[download]

This code produces:

root@swill ~/PerlMonks
$ ./AscDesc.pl
0: 0, 0, 0
1: 0, 2, 4, 6, 8
1: 1, 3, 5, 7, 9, 11
-1: 10, 9, 8, 7, 6, 5
-1: 5, 3, 1, -1, -3, -5
0: 1, 2, 3, 3, 4
root@swill ~/PerlMonks
$
[download]

--roboticus

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.