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 |
|
|
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 |