Problem:
Score : 200 points

Problem Statement

Find the sum of the integers between 1 and N (inclusive), whose sum of digits written in base 10 is between A and B (inclusive).

Constraints

1 \leq N \leq 10^4

1 \leq A \leq B \leq 36

All input values are integers.

Input

Input is given from Standard Input in the following format:

N A B

Output

Print the sum of the integers between 1 and N (inclusive), whose sum of digits written in base 10 is between A and B (inclusive).

Sample Input 1

20 2 5

Sample Output 1

84

Among the integers not greater than 20, the ones whose sums of digits are between 2 and 5, are: 2,3,4,5,11,12,13,14 and 20. We should print the sum of these, 84.

Sample Input 2

10 1 2

Sample Output 2

13

Sample Input 3

100 4 16

Sample Output 3

4554

Solution in Perl6 (rakudo-star 2016.01) (judge verdict: Time Limit Exceeded)

my ($n,$a,$b)=get.words;
my $s=0;
for (0..($b min 9)) -> $a1 {
	for (0..($b-$a1 min 9)) -> $a2 {
		for (0..($b-$a1-$a2 min 9)) -> $a3 {
			for (0..($b-$a1-$a2-$a3 min 9)) -> $a4 {
				$s+=$a1*1000+$a2*100+$a3*10+$a4 if $a1+$a2+$a3+$a4>=$a&&$n>=$a1*1000+$a2*100+$a3*10+$a4;
			}
		}
	}
}
say $s+($n==10000&&$a==1??10000!!0)