Submission #2212824


Source Code Expand

$,=$";
($K,$N)=glob<>;
if($K%2){
	@_=($K+1>>1)x$N;
	$i=$#_;
	for(1..$N/2){
		if($_[$i]){
			--$_[$i]
		}elsif(--$_[--$i]){
			while(++$i<$N){
				$_[$i]=$K
			}
		}
	}
	print grep$_,@_
}else{
	print$K/2,($K)x($N-1)
}

Submission Info

Submission Time
Task E - Finite Encyclopedia of Integer Sequences
User x20
Language Perl (v5.18.2)
Score 800
Code Size 235 Byte
Status AC
Exec Time 141 ms
Memory 14592 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 800 / 800
Status
AC × 3
AC × 31
Set Name Test Cases
Sample s1.txt, s2.txt, s3.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, 23.txt, 24.txt, 25.txt, 26.txt, 27.txt, 28.txt, s1.txt, s2.txt, s3.txt
Case Name Status Exec Time Memory
01.txt AC 82 ms 12800 KB
02.txt AC 5 ms 768 KB
03.txt AC 5 ms 768 KB
04.txt AC 5 ms 768 KB
05.txt AC 5 ms 768 KB
06.txt AC 83 ms 12800 KB
07.txt AC 19 ms 3072 KB
08.txt AC 22 ms 3712 KB
09.txt AC 110 ms 10496 KB
10.txt AC 23 ms 5120 KB
11.txt AC 122 ms 14592 KB
12.txt AC 35 ms 4224 KB
13.txt AC 53 ms 6528 KB
14.txt AC 7 ms 1408 KB
15.txt AC 5 ms 768 KB
16.txt AC 5 ms 768 KB
17.txt AC 5 ms 768 KB
18.txt AC 5 ms 768 KB
19.txt AC 5 ms 768 KB
20.txt AC 19 ms 4224 KB
21.txt AC 6 ms 1024 KB
22.txt AC 9 ms 1280 KB
23.txt AC 90 ms 10752 KB
24.txt AC 44 ms 5248 KB
25.txt AC 141 ms 13184 KB
26.txt AC 10 ms 1664 KB
27.txt AC 62 ms 5888 KB
28.txt AC 55 ms 5504 KB
s1.txt AC 5 ms 768 KB
s2.txt AC 5 ms 768 KB
s3.txt AC 5 ms 768 KB