Submission #3964607

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 140 Byte
Status AC
Exec Time 1672 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 1287 ms 65664 KB
003.txt AC 1643 ms 83072 KB
004.txt AC 1031 ms 55936 KB
005.txt AC 1604 ms 83200 KB
006.txt AC 1460 ms 76800 KB
007.txt AC 1572 ms 83072 KB
008.txt AC 1139 ms 59648 KB
009.txt AC 1672 ms 83072 KB
010.txt AC 1170 ms 60800 KB
011.txt AC 1620 ms 83072 KB
012.txt AC 939 ms 49536 KB
013.txt AC 1644 ms 83072 KB
014.txt AC 732 ms 39680 KB
015.txt AC 1625 ms 83072 KB
016.txt AC 1009 ms 51328 KB
017.txt AC 1618 ms 83072 KB
018.txt AC 252 ms 15744 KB
019.txt AC 1561 ms 83072 KB
020.txt AC 140 ms 8960 KB
021.txt AC 1571 ms 83072 KB