Select Code to Download

1..10 - interval
 and 

2..5 - subinterval
4..7 - subinterval

1->0
2->1
...
8->0
9->0
10->0

#!/usr/bin/perl
...
    $start = $max+1 ;
}

|interval| = X
...

O(X^2)   - not good if implemented naively