Submission #845994


Source Code Expand

$_[$_-1]%2&$_[$_]>0&&(--$_[$_],++$%),$%+=$_[$_]/2for 1..(@_=(!<>,<>));print$%,$/

Submission Info

Submission Time
Task B - Simplified mahjong
User x20
Language Perl (v5.18.2)
Score 400
Code Size 80 Byte
Status AC
Exec Time 199 ms
Memory 23168 KB

Compile Error

Possible precedence problem on bitwise & operator at ./Main.pl line 1.
./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 400 / 400
Status
AC × 2
AC × 24
Set Name Test Cases
Sample s1.txt, s2.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, s1.txt, s2.txt
Case Name Status Exec Time Memory
01.txt AC 194 ms 23168 KB
02.txt AC 191 ms 23168 KB
03.txt AC 188 ms 23168 KB
04.txt AC 178 ms 23168 KB
05.txt AC 182 ms 23168 KB
06.txt AC 178 ms 23168 KB
07.txt AC 186 ms 23168 KB
08.txt AC 193 ms 23168 KB
09.txt AC 191 ms 23168 KB
10.txt AC 192 ms 23168 KB
11.txt AC 171 ms 23168 KB
12.txt AC 175 ms 23168 KB
13.txt AC 194 ms 23168 KB
14.txt AC 196 ms 23168 KB
15.txt AC 174 ms 23168 KB
16.txt AC 199 ms 23168 KB
17.txt AC 197 ms 23168 KB
18.txt AC 6 ms 384 KB
19.txt AC 6 ms 384 KB
20.txt AC 6 ms 384 KB
21.txt AC 6 ms 384 KB
22.txt AC 6 ms 384 KB
s1.txt AC 5 ms 384 KB
s2.txt AC 6 ms 384 KB