Submission #1211899


Source Code Expand

Copy
@$_=map{$x+=/A/?1:2}<>=~/^|./g for("s".."u");($a,$b,$c,$d)=split,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 121 Byte
Status
Exec Time 341 ms
Memory 27152 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 3 ms 512 KB
0_001.txt 2 ms 384 KB
bound_0.txt 331 ms 25088 KB
bound_1.txt 333 ms 25088 KB
bound_2.txt 338 ms 25088 KB
bound_3.txt 340 ms 25216 KB
min.txt 2 ms 384 KB
rnd_10000_10.txt 337 ms 25216 KB
rnd_10000_10000.txt 336 ms 25216 KB
rnd_10000_2.txt 335 ms 25216 KB
rnd_10_10.txt 341 ms 27152 KB
rnd_10_10000.txt 334 ms 25216 KB
rnd_10_2.txt 338 ms 25216 KB
rnd_2_10.txt 336 ms 25216 KB
rnd_2_10000.txt 337 ms 25216 KB
rnd_2_2.txt 338 ms 25216 KB