Submission #2212636

Source Code Expand

$%=@_=1..log($N=<>+1)/log 2;$N&1<<$%and@_[@@]=(@_+1,@_[@@=$%..@_])while$%--;$,=$";print@_*2,@_,1..@_

Submission Info

Submission Time
Task C - Tautonym Puzzle
User x20
Language Perl (v5.18.2)
Score 1000
Code Size 100 Byte
Status AC
Exec Time 3 ms
Memory 640 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 1000 / 1000
Status
AC × 2
AC × 32
Set Name Test Cases
Sample 00_example_01.txt, 00_example_02.txt
All 00_example_01.txt, 00_example_02.txt, 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, 28.txt, 29.txt, 30.txt
Case Name Status Exec Time Memory
00_example_01.txt AC 3 ms 640 KB
00_example_02.txt AC 2 ms 384 KB
01.txt AC 2 ms 384 KB
02.txt AC 2 ms 384 KB
03.txt AC 3 ms 512 KB
04.txt AC 2 ms 384 KB
05.txt AC 2 ms 384 KB
06.txt AC 2 ms 384 KB
07.txt AC 2 ms 384 KB
08.txt AC 2 ms 384 KB
09.txt AC 2 ms 384 KB
10.txt AC 2 ms 384 KB
11.txt AC 2 ms 384 KB
12.txt AC 2 ms 384 KB
13.txt AC 2 ms 384 KB
14.txt AC 2 ms 384 KB
15.txt AC 2 ms 384 KB
16.txt AC 2 ms 384 KB
17.txt AC 2 ms 384 KB
18.txt AC 2 ms 384 KB
19.txt AC 2 ms 384 KB
20.txt AC 2 ms 384 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
28.txt AC 2 ms 384 KB
29.txt AC 2 ms 384 KB
30.txt AC 2 ms 384 KB