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 Perl (v5.18.2) (judge verdict: Wrong Answer)

use strict;
use warnings;

main();

sub main{
	my $line = <STDIN>;
	chomp($line);
	(my $N, my $A, my $B) = split(/ /, $line);

	my $t1000=0;
	my $t100=0;
	my $t10=0;
	my $t1=0;
	my $sum = 0;
	my $total = 0;

	foreach my $in (1..$N){
		
		my $copyIn = $in;
		
		$t1000 = int($in/1000);
		$in -= $t1000*1000;
		$t100  = int($in/100 );
		$in -= $t100*100;
		$t10   = int($in/10  );
		$in -= $t10*10;
		$t1    = int($in/1   );

		$total = $t1000 + $t100 + $t10 + $t1;

		if($A <= $total && $total <= $B){ $sum += $copyIn } 

	}
	print $sum."\n";
	1;
}