Submission #2335622


Source Code Expand

$N=<>;
while($i+26**++$m<$N){
	$i+=26**$m;
	$x+=$m*26**$m
}
print$N<52?$N*3>>1:$x+$m*($N-$i),$/

Submission Info

Submission Time
Task A - しりとり
User x20
Language Perl (v5.18.2)
Score 1
Code Size 102 Byte
Status AC
Exec Time 5 ms
Memory 640 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 5 ms 640 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