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: Accepted)

use v5.18;
use warnings;
use utf8;
use List::Util qw( sum );
sub line { chomp(my $str = <>); $str; }
sub split_line { (split / /, line) }

my ($limit, $min, $max) = split_line;

my $sum = 0;
for my $num (1 .. $limit) {
  my @digits = split //, $num;
  my $dsum = sum @digits;
  if ( $dsum >= $min && $dsum <= $max ) {
    $sum += $num;
  }
}
say $sum;