Submission #2233365


Source Code Expand

Copy
my ($n,$a,$b)=get.words;
say (1..$n).grep({
	my ($sum,$now)=0,$_;
	$sum+=$now%10,$now div=10 while $now>0;
	$b>=$sum>=$a
}).sum

Submission Info

Submission Time
Task ABC083B - Some Sums
User kotatsugame
Language Perl6 (rakudo-star 2016.01)
Score 0
Code Size 132 Byte
Status

Test Cases

Set Name Score / Max Score Test Cases
Sample 0 / 0 s1.txt, s2.txt, s3.txt
All 0 / 200 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, s1.txt, s2.txt, s3.txt
Case Name Status Exec Time Memory
01.txt
02.txt 827 ms 75628 KB
03.txt
04.txt 1827 ms 75504 KB
05.txt
06.txt
07.txt
08.txt 1856 ms 76140 KB
s1.txt 172 ms 54644 KB
s2.txt 167 ms 53368 KB
s3.txt 191 ms 58744 KB