Submission #1156762


Source Code Expand

($N,$C,$K)=glob<>;
for(sort{$a-$b}<>){
	if($_<=$k&&$c<$C){
		++$c;
	}else{
		++$%;
		$k=$_+$K;
		$c=1;
	}
}
print$%,$/

Submission Info

Submission Time
Task A - Airport Bus
User x20
Language Perl (v5.18.2)
Score 300
Code Size 130 Byte
Status AC
Exec Time 159 ms
Memory 18688 KB

Compile Error

Name "main::N" used only once: possible typo at ./Main.pl line 1.
./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 300 / 300
Status
AC × 2
AC × 12
Set Name Test Cases
Sample sample1.txt, sample2.txt
All sample1.txt, sample2.txt, in1.txt, in2.txt, in3.txt, in4.txt, in5.txt, in6.txt, in7.txt, in8.txt, sample1.txt, sample2.txt
Case Name Status Exec Time Memory
in1.txt AC 6 ms 896 KB
in2.txt AC 143 ms 18688 KB
in3.txt AC 158 ms 18688 KB
in4.txt AC 159 ms 18688 KB
in5.txt AC 6 ms 1152 KB
in6.txt AC 150 ms 18688 KB
in7.txt AC 124 ms 16384 KB
in8.txt AC 145 ms 18688 KB
sample1.txt AC 5 ms 768 KB
sample2.txt AC 5 ms 768 KB