Submission #6415615

Source Code Expand

($p,$q)=glob<>;($r,$s)=glob<>;
print+(grep{eval $_}glob qq("{$p,$q}=={$r,$s}"))?YES:NO;

Submission Info

Submission Time
Task B - ディスプレイ
User icu
Language Perl (v5.18.2)
Score 100
Code Size 88 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 100 / 100
Status
AC × 5
AC × 20
Set Name Test Cases
Sample sample0.txt, sample1.txt, sample2.txt, sample3.txt, sample4.txt
All sample0.txt, sample1.txt, sample2.txt, sample3.txt, sample4.txt, subtask1_0.txt, subtask1_1.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_2.txt, subtask1_3.txt, subtask1_4.txt, subtask1_5.txt, subtask1_6.txt, subtask1_7.txt, subtask1_8.txt, subtask1_9.txt
Case Name Status Exec Time Memory
sample0.txt AC 5 ms 768 KB
sample1.txt AC 5 ms 768 KB
sample2.txt AC 5 ms 768 KB
sample3.txt AC 5 ms 768 KB
sample4.txt AC 5 ms 768 KB
subtask1_0.txt AC 5 ms 768 KB
subtask1_1.txt AC 5 ms 768 KB
subtask1_10.txt AC 5 ms 768 KB
subtask1_11.txt AC 5 ms 768 KB
subtask1_12.txt AC 5 ms 768 KB
subtask1_13.txt AC 5 ms 768 KB
subtask1_14.txt AC 5 ms 768 KB
subtask1_2.txt AC 5 ms 768 KB
subtask1_3.txt AC 5 ms 768 KB
subtask1_4.txt AC 5 ms 768 KB
subtask1_5.txt AC 5 ms 768 KB
subtask1_6.txt AC 5 ms 768 KB
subtask1_7.txt AC 5 ms 768 KB
subtask1_8.txt AC 5 ms 768 KB
subtask1_9.txt AC 5 ms 768 KB