Submission #1539311
Source Code Expand
($Q,$H,$S,$D)=glob<>; $N=<>; ($S)=sort{$a-$b}4*$Q,2*$H,$S; print 2*$S<$D? $S*$N : $D*($N>>1)+$S*($N%2) ,$/
Submission Info
Submission Time | |
---|---|
Task | A - Ice Tea Store |
User | x20 |
Language | Perl (v5.18.2) |
Score | 300 |
Code Size | 117 Byte |
Status | AC |
Exec Time | 5 ms |
Memory | 768 KB |
Compile Error
./Main.pl syntax OK
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 300 / 300 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | sample_01.txt, sample_02.txt, sample_03.txt, sample_04.txt |
All | sample_01.txt, sample_02.txt, sample_03.txt, sample_04.txt, sample_01.txt, sample_02.txt, sample_03.txt, sample_04.txt, subtask_1_01.txt, subtask_1_02.txt, subtask_1_03.txt, subtask_1_04.txt, subtask_1_05.txt, subtask_1_06.txt, subtask_1_07.txt, subtask_1_08.txt, subtask_1_09.txt, subtask_1_10.txt, subtask_1_11.txt, subtask_1_12.txt, subtask_1_13.txt, subtask_1_14.txt, subtask_1_15.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample_01.txt | AC | 5 ms | 768 KB |
sample_02.txt | AC | 5 ms | 768 KB |
sample_03.txt | AC | 5 ms | 768 KB |
sample_04.txt | AC | 5 ms | 768 KB |
subtask_1_01.txt | AC | 5 ms | 768 KB |
subtask_1_02.txt | AC | 5 ms | 768 KB |
subtask_1_03.txt | AC | 5 ms | 768 KB |
subtask_1_04.txt | AC | 5 ms | 768 KB |
subtask_1_05.txt | AC | 5 ms | 768 KB |
subtask_1_06.txt | AC | 5 ms | 768 KB |
subtask_1_07.txt | AC | 5 ms | 768 KB |
subtask_1_08.txt | AC | 5 ms | 768 KB |
subtask_1_09.txt | AC | 5 ms | 768 KB |
subtask_1_10.txt | AC | 5 ms | 768 KB |
subtask_1_11.txt | AC | 5 ms | 768 KB |
subtask_1_12.txt | AC | 5 ms | 768 KB |
subtask_1_13.txt | AC | 5 ms | 768 KB |
subtask_1_14.txt | AC | 5 ms | 768 KB |
subtask_1_15.txt | AC | 5 ms | 768 KB |