Submission #1196646


Source Code Expand

Copy
$N=<>;
while($N){
	$L=2;
	++$L while(1<<$L)-1<=$N;
	push@_,(++$i)x$L;
	$N-=(1<<$L-1)-1
}
@_>200&&die;
print@_.$/,"@_",$/

Submission Info

Submission Time
Task C - Tautonym Puzzle
User x20
Language Perl (v5.18.2)
Score 0
Code Size 128 Byte
Status

Compile Error

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

Test Cases

Set Name Score / Max Score Test Cases
Sample 0 / 0 00_example_01.txt, 00_example_02.txt
All 0 / 1000 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 2 ms 384 KB
00_example_02.txt 2 ms 384 KB
01.txt
02.txt 2 ms 384 KB
03.txt 2 ms 384 KB
04.txt
05.txt 2 ms 384 KB
06.txt 2 ms 384 KB
07.txt
08.txt
09.txt 2 ms 384 KB
10.txt 2 ms 384 KB
11.txt 2 ms 384 KB
12.txt 2 ms 384 KB
13.txt
14.txt 2 ms 384 KB
15.txt 2 ms 384 KB
16.txt 2 ms 384 KB
17.txt 2 ms 384 KB
18.txt 2 ms 384 KB
19.txt
20.txt 2 ms 384 KB
21.txt
22.txt 2 ms 384 KB
23.txt
24.txt 2 ms 384 KB
25.txt 2 ms 384 KB
26.txt
27.txt
28.txt 2 ms 384 KB
29.txt
30.txt