Submission #858073


Source Code Expand

@@=!<>;//,map$@[$_+$']=$_+$',@@for glob<>;print grep($_>0,@@)+1,$/

Submission Info

Submission Time
Task A - コンテスト
User x20
Language Perl (5.14.2)
Score 2
Code Size 66 Byte
Status AC
Exec Time 220 ms
Memory 2952 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name All
Score / Max Score 2 / 2
Status
AC × 5
Set Name Test Cases
All 00, 01, 02, 90, 91
Case Name Status Exec Time Memory
00 AC 70 ms 2464 KB
01 AC 100 ms 2696 KB
02 AC 220 ms 2952 KB
90 AC 52 ms 2592 KB
91 AC 52 ms 2440 KB