Submission #2216162

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 65 Byte
Status AC
Exec Time 124 ms
Memory 30976 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 124 ms 30976 KB
02.txt AC 122 ms 30848 KB
03.txt AC 120 ms 30976 KB
04.txt AC 120 ms 30720 KB
05.txt AC 93 ms 24064 KB
06.txt AC 46 ms 12288 KB
07.txt AC 13 ms 4096 KB
08.txt AC 33 ms 9344 KB
09.txt AC 93 ms 24192 KB
10.txt AC 89 ms 23552 KB
11.txt AC 83 ms 21632 KB
12.txt AC 40 ms 10496 KB
13.txt AC 72 ms 18688 KB
14.txt AC 114 ms 29056 KB
15.txt AC 117 ms 30080 KB
16.txt AC 90 ms 23552 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