Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -slw

...
    $_, @{ $ranges[ $_ ] },
    $ranges[ $_ ][ 1 ] - $ranges[ $_ ][ 0 ] + 1
    for 0 .. $#ranges;

Select or download this

john@e6510:~/Desktop$ ./ranges -N=1 -M=9999997
 0 : from       0 to 9999997 (9999998)
...
 3 : from 6000000 to 7999999 (2000000)
 4 : from 8000000 to 9999997 (1999998)