Submission #2215052


Source Code Expand

$_=<>;
$l=y/01//;
s#0+|1+#$_["@+"<$l-"@-"?"@+":$l-"@-"]=0#ge;
print$#_

Submission Info

Submission Time
Task D - Wide Flip
User x20
Language Perl (v5.18.2)
Score 500
Code Size 75 Byte
Status AC
Exec Time 136 ms
Memory 32256 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 500 / 500
Status
AC × 3
AC × 30
Set Name Test Cases
Sample s1.txt, s2.txt, s3.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 20.txt, 21.txt, 22.txt, 23.txt, 24.txt, 25.txt, 26.txt, 27.txt, s1.txt, s2.txt, s3.txt
Case Name Status Exec Time Memory
01.txt AC 136 ms 32256 KB
02.txt AC 130 ms 32128 KB
03.txt AC 131 ms 32128 KB
04.txt AC 133 ms 32000 KB
05.txt AC 101 ms 25344 KB
06.txt AC 50 ms 12800 KB
07.txt AC 14 ms 4352 KB
08.txt AC 37 ms 9984 KB
09.txt AC 100 ms 25088 KB
10.txt AC 97 ms 24832 KB
11.txt AC 88 ms 22784 KB
12.txt AC 41 ms 10880 KB
13.txt AC 76 ms 19328 KB
14.txt AC 123 ms 30336 KB
15.txt AC 128 ms 31232 KB
16.txt AC 98 ms 24448 KB
17.txt AC 2 ms 1280 KB
18.txt AC 2 ms 1280 KB
19.txt AC 2 ms 1280 KB
20.txt AC 2 ms 1280 KB
21.txt AC 2 ms 384 KB
22.txt AC 2 ms 384 KB
23.txt AC 2 ms 384 KB
24.txt AC 2 ms 384 KB
25.txt AC 2 ms 384 KB
26.txt AC 2 ms 384 KB
27.txt AC 2 ms 384 KB
s1.txt AC 2 ms 384 KB
s2.txt AC 2 ms 384 KB
s3.txt AC 2 ms 384 KB