Select Code to Download

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

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

root@swill ~/PerlMonks
$ ./AscDesc.pl
...
0: 1, 2, 3, 3, 4
root@swill ~/PerlMonks
$