Submission #2335611


Source Code Expand

$N=<>;
if($N<=52){
	print$N*3>>1,$/
}elsif($N<=702){
	print$N*2-26,$/
}else{
	$x=1378;
	$i=702;
	$m=3;
	while($i+26**$m<=$N){
		$i+=26**$m;
		$x+=$m*26**$m;
		++$m
	}
	print$x+$m*($N-$i),$/
}

Submission Info

Submission Time
Task A - しりとり
User x20
Language Perl (v5.18.2)
Score 1
Code Size 208 Byte
Status AC
Exec Time 3 ms
Memory 512 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name sample all
Score / Max Score 0 / 0 1 / 1
Status
AC × 2
AC × 16
Set Name Test Cases
sample sample-01.txt, sample-02.txt
all sample-01.txt, sample-02.txt, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, 01-08.txt, 01-09.txt, 01-10.txt, 01-11.txt, 01-12.txt, sample-01.txt, sample-02.txt
Case Name Status Exec Time Memory
01-01.txt AC 3 ms 512 KB
01-02.txt AC 2 ms 384 KB
01-03.txt AC 2 ms 384 KB
01-04.txt AC 2 ms 384 KB
01-05.txt AC 2 ms 384 KB
01-06.txt AC 2 ms 384 KB
01-07.txt AC 2 ms 384 KB
01-08.txt AC 2 ms 384 KB
01-09.txt AC 2 ms 384 KB
01-10.txt AC 2 ms 384 KB
01-11.txt AC 2 ms 384 KB
01-12.txt AC 2 ms 384 KB
sample-01.txt AC 2 ms 384 KB
sample-02.txt AC 2 ms 384 KB