Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
        my ($l, $r) = (@_);
        return ($l<$r) ? $l : $r;
}

Select or download this

roboticus@Work: /Work/Perl/PerlMonks
$ perl 868827_ranges_and_such.pl
...
XX XX                         : (0, 2)
                           XX : (10, 11)
 5  5  5  7  7  5  3  1  1  3 : FINAL