Submission #1211924


Source Code Expand

Copy
@$_=map{$x+=/A/?1:2}<>=~/^|./g for"s".."u";($a,$b,$c,$d)=glob,print+($s[$b]-$s[$a-1]-$t[$d]+$t[$c-1])%3?NO:YES,$/for<>

Submission Info

Submission Time
Task E - TrBBnsformBBtion
User akouryy
Language Perl (v5.18.2)
Score 600
Code Size 118 Byte
Status
Exec Time 1252 ms
Memory 25472 KB

Compile Error

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

Test Cases

Set Name Score / Max Score Test Cases
Sample 0 / 0 0_000.txt, 0_001.txt
All 600 / 600 0_000.txt, 0_001.txt, bound_0.txt, bound_1.txt, bound_2.txt, bound_3.txt, min.txt, rnd_10000_10.txt, rnd_10000_10000.txt, rnd_10000_2.txt, rnd_10_10.txt, rnd_10_10000.txt, rnd_10_2.txt, rnd_2_10.txt, rnd_2_10000.txt, rnd_2_2.txt
Case Name Status Exec Time Memory
0_000.txt 5 ms 768 KB
0_001.txt 5 ms 768 KB
bound_0.txt 1130 ms 25472 KB
bound_1.txt 1102 ms 25472 KB
bound_2.txt 1112 ms 25472 KB
bound_3.txt 1079 ms 25472 KB
min.txt 5 ms 768 KB
rnd_10000_10.txt 1252 ms 25472 KB
rnd_10000_10000.txt 1206 ms 25472 KB
rnd_10000_2.txt 1207 ms 25472 KB
rnd_10_10.txt 1193 ms 25472 KB
rnd_10_10000.txt 1217 ms 25472 KB
rnd_10_2.txt 1209 ms 25472 KB
rnd_2_10.txt 1164 ms 25472 KB
rnd_2_10000.txt 1189 ms 25472 KB
rnd_2_2.txt 1208 ms 25472 KB