Submission #947397

---

Source Code Expand

$N=<>;
@T=(0,(glob<>),0);
@A=(0,(glob<>),0);
$x=1;
$d[$_]=$T[$_-1]<$T[$_]for 1..$#T-1;
for($i=$#T-1;$i;--$i){
	$A[$i]==$T[$#T-1]&&$T[$i]==$T[$#T-1]&&++$f;
	$d[$i]|=$A[$i]>$A[$i+1]
}
$d[$_]or$x=($x*($T[$_]<$A[$_]?$T[$_]:$A[$_]))%1000000007for 1..$#T-1;
print$x*($f&&$T[$#T-1]==$A[1]),$/

Submission Info

Compile Error

Name "main::N" used only once: possible typo at ./Main.pl line 1.
./Main.pl syntax OK

Judge Result