Submission #1067818

Source Code Expand

<>;$\+=$-=($x+=/I/*2-1)-$\for<>=~/./g;print

Submission Info

Submission Time
Task B - Increment Decrement
User x20
Language Perl (v5.18.2)
Score 200
Code Size 43 Byte
Status AC
Exec Time 4 ms
Memory 512 KB

Compile Error

Name "main::x" used only once: possible typo at ./Main.pl line 1.
./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 2
AC × 8
Set Name Test Cases
Sample sample_01.txt, sample_02.txt
All subtask_1_alld_01.txt, subtask_1_alldmax_01.txt, subtask_1_alli_01.txt, subtask_1_allimax_01.txt, subtask_1_max_01.txt, subtask_1_max_02.txt, subtask_1_rand_01.txt, subtask_1_rand_02.txt
Case Name Status Exec Time Memory
sample_01.txt AC 4 ms 512 KB
sample_02.txt AC 4 ms 384 KB
subtask_1_alld_01.txt AC 4 ms 384 KB
subtask_1_alldmax_01.txt AC 4 ms 384 KB
subtask_1_alli_01.txt AC 4 ms 384 KB
subtask_1_allimax_01.txt AC 4 ms 384 KB
subtask_1_max_01.txt AC 4 ms 384 KB
subtask_1_max_02.txt AC 4 ms 384 KB
subtask_1_rand_01.txt AC 4 ms 384 KB
subtask_1_rand_02.txt AC 4 ms 384 KB