Submission #2237539

Source Code Expand

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# https://beta.atcoder.jp/contests/abs/submissions/2233448
my$ans=0;
my ($n,$a,$b)=get.words;
for 0..9 ->$_1 {
  for 0..($b-$_1 min 9) ->$_2 {
    for 0..($b-$_1-$_2 min 9) ->$_3 {
      for ($a-$_1-$_2-$_3 max 0)..($b-$_1-$_2-$_3 min 9) ->$_4 {
        my $t = 1000 * $_1 + 100 * $_2 + 10 * $_3 + $_4;
        $ans+=$t if $n>=$t
      }
    }
  }
}
$ans+=1e4 if $n>=1e4 && 1>=$a;
say $ans
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

# https://beta.atcoder.jp/contests/abs/submissions/2233448

my$ans=0;
my ($n,$a,$b)=get.words;
for 0..9 ->$_1 {
	for 0..($b-$_1 min 9) ->$_2 {
		for 0..($b-$_1-$_2 min 9) ->$_3 {
			for ($a-$_1-$_2-$_3 max 0)..($b-$_1-$_2-$_3 min 9) ->$_4 {
				my $t = 1000 * $_1 + 100 * $_2 + 10 * $_3 + $_4;
				$ans+=$t if $n>=$t
			}
		}
	}
}
$ans+=1e4 if $n>=1e4 && 1>=$a;
say $ans

Submission Info

Judge Result