Submission #1986417

---

Source Code Expand

$N = <STDIN>+0;
@P=split " ",<STDIN>;

unshift @P,-1;
for($i=1;$i<=$N;$i++) {
	push @{$IP[$P[$i]]},$i;
}
$m=1000000007;

$P[0]=1;
for($p=0;$p<$N;$p++){
	$P[$p+1]=($P[$p]*2) % $m;
}


for($i=$N;$i>=0;$i--) {
	$A[$i][0]=1;
	$B[$i][0]=1;
	$C[$i][0]=1;
	$mj=$#{$IP[$i]};
	$md=-1; for($j=0;$j<=$mj;$j++) { if ($md < $#{$C[$IP[$i][$j]]}) { $md=$#{$C[$IP[$i][$j]]}; } }
	for($d=0;$d<=$md;$d++) {
		$A=0;$C=0;
		for($j=0;$j<=$mj;$j++) {
			$ij=$IP[$i][$j];
			next if ($C[$ij][$d]==0);
			$C += $C[$ij][$d];
			$p = $A[$ij][$d];
			for($k=0;$k<=$mj;$k++) {
				next if ($k==$j);
				$ik=$IP[$i][$k];
				next if ( $C[$ik][$d]==0 );
				$p=($p*$B[$ik][$d]) % $m;
			}
			$A=($A+$p) % $m;
		}
		$A[$i][$d+1]=$A;
		$B[$i][$d+1]=($P[$C] - $A + $m) % $m;
		$C[$i][$d+1]=$C;
	}
}
$sum=0;
for($d=0;$C[0][$d]>0;$d++) {
	$sum=($sum + $A[0][$d]*$P[$N+1-$C[0][$d]]) % $m;
}
print $sum,"\n";

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result