Submission #4118522
Source Code Expand
$q[$'-2]=$s=<>=~$";map{push@q,$t;$s=(($t+=$s)%=$%=1e9+7)-shift@q}2..$`;print$s%$%,$/
Submission Info
Submission Time | |
---|---|
Task | F - 準急 |
User | x20 |
Language | Perl (v5.18.2) |
Score | 4 |
Code Size | 84 Byte |
Status | AC |
Exec Time | 641 ms |
Memory | 112256 KB |
Compile Error
./Main.pl syntax OK
Judge Result
Set Name | All | ||
---|---|---|---|
Score / Max Score | 4 / 4 | ||
Status |
|
Set Name | Test Cases |
---|---|
All | 00, 01, 02, 03, 04, 90, 91 |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
00 | AC | 586 ms | 47616 KB |
01 | AC | 641 ms | 112256 KB |
02 | AC | 272 ms | 24064 KB |
03 | AC | 187 ms | 15872 KB |
04 | AC | 504 ms | 44032 KB |
90 | AC | 2 ms | 384 KB |
91 | AC | 2 ms | 384 KB |