Submission #3964619

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 139 Byte
Status AC
Exec Time 1698 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 1263 ms 65664 KB
003.txt AC 1642 ms 83072 KB
004.txt AC 1045 ms 55936 KB
005.txt AC 1698 ms 83200 KB
006.txt AC 1472 ms 76800 KB
007.txt AC 1625 ms 83072 KB
008.txt AC 1082 ms 59648 KB
009.txt AC 1634 ms 83072 KB
010.txt AC 1128 ms 60800 KB
011.txt AC 1688 ms 83072 KB
012.txt AC 916 ms 49536 KB
013.txt AC 1628 ms 83072 KB
014.txt AC 699 ms 39680 KB
015.txt AC 1599 ms 83072 KB
016.txt AC 951 ms 51328 KB
017.txt AC 1603 ms 83072 KB
018.txt AC 257 ms 15744 KB
019.txt AC 1622 ms 83072 KB
020.txt AC 137 ms 8832 KB
021.txt AC 1618 ms 83072 KB