Submission #1157654

Source Code Expand

$N=<>;
$i++&&$p*2<$_&&($%=$i-1),$p+=$_ for sort{$a-$b}glob<>;
print$N-$%,$/

Submission Info

Submission Time
Task B - Colorful Creatures
User x20
Language Perl (v5.18.2)
Score 400
Code Size 79 Byte
Status AC
Exec Time 338 ms
Memory 22400 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 400 / 400
Status
AC × 3
AC × 19
Set Name Test Cases
Sample sample1.txt, sample2.txt, sample3.txt
All sample1.txt, sample2.txt, sample3.txt, in1.txt, in10.txt, in11.txt, in12.txt, in13.txt, in2.txt, in3.txt, in4.txt, in5.txt, in6.txt, in7.txt, in8.txt, in9.txt, sample1.txt, sample2.txt, sample3.txt
Case Name Status Exec Time Memory
in1.txt AC 330 ms 22272 KB
in10.txt AC 111 ms 9216 KB
in11.txt AC 283 ms 22016 KB
in12.txt AC 127 ms 22400 KB
in13.txt AC 130 ms 22400 KB
in2.txt AC 328 ms 22200 KB
in3.txt AC 333 ms 22272 KB
in4.txt AC 338 ms 22272 KB
in5.txt AC 124 ms 8960 KB
in6.txt AC 233 ms 21760 KB
in7.txt AC 327 ms 22144 KB
in8.txt AC 226 ms 21504 KB
in9.txt AC 40 ms 3328 KB
sample1.txt AC 5 ms 768 KB
sample2.txt AC 5 ms 768 KB
sample3.txt AC 5 ms 768 KB