Submission #1102987

Source Code Expand

<>=~$";print+(Draw,Alice,Bob)[($`-2)%13<=>($'-2)%13],$/

Submission Info

Submission Time
Task A - One Card Poker
User x20
Language Perl (v5.18.2)
Score 100
Code Size 55 Byte
Status AC
Exec Time 3 ms
Memory 512 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 10
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt
All sample_01.txt, sample_02.txt, sample_03.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
Case Name Status Exec Time Memory
sample_01.txt AC 3 ms 512 KB
sample_02.txt AC 2 ms 384 KB
sample_03.txt AC 2 ms 384 KB
subtask_1_01.txt AC 2 ms 384 KB
subtask_1_02.txt AC 2 ms 384 KB
subtask_1_03.txt AC 2 ms 384 KB
subtask_1_04.txt AC 2 ms 384 KB
subtask_1_05.txt AC 2 ms 384 KB
subtask_1_06.txt AC 2 ms 384 KB
subtask_1_07.txt AC 2 ms 384 KB