Select Code to Download

[chris@pineapple ranges-892828]$ perl ranges -M=9999997 -N=1
 0 : from       0 to 9999997 (9999998)
...
 6 : from 6666665 to 7777775 (1111111)
 7 : from 7777776 to 8888886 (1111111)
 8 : from 8888887 to 9999997 (1111111)

[chris@pineapple ranges-892828]$ perl ranges -M=9 -N=1
 0 : from       0 to       9 (     10)
...
 3 : from       3 to       4 (      2)
[chris@pineapple ranges-892828]$ perl ranges -M=4 -N=5
M must be equal to N or larger than N.

#! perl -slw
use strict;
...
) for 0 .. $#ranges;

__END__