Submission #896637

---

Source Code Expand

$YN=1;
sub f{my$t;
	if((defined${$r+$_[0]}{$c})
	&& (defined${$r}{$c+$_[1]})
	&& (defined${$r+$_[0]}{$c+$_[1]})){
		$t=${$r+$_[0]}{$c}+${$r}{$c+$_[1]}-${$r+$_[0]}{$c+$_[1]};
		if($t<0){$YN=0;}
		return$t;
	}else{
		return undef;
	}
}
<>;<>;
for(<>){
	($R,$C,$a)=glob;
	${$R}{$C}=$a;
	for([-1,-1],[-1,0],[-1,1],[0,-1],[0,1],[1,-1],[1,0],[1,1]){
		$r=$R+(@$_)[0];
		$c=$C+(@$_)[1];
		$w=f(-1,-1);
		$x=f(+1,-1);
		$y=f(-1,+1);
		$z=f(+1,+1);
		if((defined$w)&&(defined$x)&&$w!=$x){$YN=0;}
		if((defined$w)&&(defined$y)&&$w!=$y){$YN=0;}
		if((defined$w)&&(defined$z)&&$w!=$z){$YN=0;}
		if((defined$x)&&(defined$y)&&$x!=$y){$YN=0;}
		if((defined$x)&&(defined$z)&&$x!=$z){$YN=0;}
		if((defined$y)&&(defined$z)&&$y!=$z){$YN=0;}
	}
}
print$YN?Yes:No,$/

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result