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