Submission #3964601
Source Code Expand
sub f{map{push@$_,$a[--$|]for@a=glob}<>;my($x,$b,$w)=($_,1,1);$_-"@_"and($w*=f($x))%=$==1e9+7,$b=$b*$c%$=for@$x;($b+($c=$w))%$=}print f$_+=<>
Submission Info
Submission Time | |
---|---|
Task | D - 塗り絵 |
User | x20 |
Language | Perl (v5.18.2) |
Score | 100 |
Code Size | 141 Byte |
Status | AC |
Exec Time | 1705 ms |
Memory | 83200 KB |
Compile Error
./Main.pl syntax OK
Judge Result
Set Name | All | ||
---|---|---|---|
Score / Max Score | 100 / 100 | ||
Status |
|
Set Name | Test Cases |
---|---|
All | 000.txt, 001.txt, 002.txt, 003.txt, 004.txt, 005.txt, 006.txt, 007.txt, 008.txt, 009.txt, 010.txt, 011.txt, 012.txt, 013.txt, 014.txt, 015.txt, 016.txt, 017.txt, 018.txt, 019.txt, 020.txt, 021.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
000.txt | AC | 5 ms | 768 KB |
001.txt | AC | 5 ms | 768 KB |
002.txt | AC | 1237 ms | 65664 KB |
003.txt | AC | 1639 ms | 83072 KB |
004.txt | AC | 1045 ms | 55936 KB |
005.txt | AC | 1705 ms | 83200 KB |
006.txt | AC | 1504 ms | 76800 KB |
007.txt | AC | 1622 ms | 83072 KB |
008.txt | AC | 1128 ms | 59648 KB |
009.txt | AC | 1649 ms | 83072 KB |
010.txt | AC | 1183 ms | 60800 KB |
011.txt | AC | 1678 ms | 83072 KB |
012.txt | AC | 905 ms | 49536 KB |
013.txt | AC | 1691 ms | 83072 KB |
014.txt | AC | 714 ms | 39680 KB |
015.txt | AC | 1639 ms | 83072 KB |
016.txt | AC | 948 ms | 51328 KB |
017.txt | AC | 1681 ms | 83072 KB |
018.txt | AC | 253 ms | 15744 KB |
019.txt | AC | 1674 ms | 83072 KB |
020.txt | AC | 139 ms | 8960 KB |
021.txt | AC | 1625 ms | 83072 KB |