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
AC × 22
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