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 |
|
|
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 |