Submission #1986255

---

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

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

Judge Result