Submission #1986402

---

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;

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);
				next if ( $C[$IP[$i][$k]][$d]==0 );
				$p=($p*$B[$IP[$i][$k]][$d]) % $m;
			}
			$A=($A+$p) % $m;
		}
		$A[$i][$d+1]=$A;
		$B[$i][$d+1]=(&pow($C) - $A + $m) % $m;
		$C[$i][$d+1]=$C;
	}
}
$sum=0;
for($d=0;$C[0][$d]>0;$d++) {
	$sum=($sum + $A[0][$d]*&pow($N+1-$C[0][$d])) % $m;
}
print $sum;

sub pow() {
	my $pp=1;
	my $i;
	for($i=0;$i<$_[0];$i++) { $pp=($pp*2) % $m; }
	return $pp;
}

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result