Submission #2229862

---

Source Code Expand

($H,$W)=glob<>;
@c=map['#',/./g,'#'],'#'x$W,<>,'#'x$W;
sub f{
	my($y,$x)=@_;
	return if$c[$y][$x]ne'.';
	$c[$y][$x]='=';
	f($y-1,$x);
	f($y,$x-1);
	f($y,$x+1);
	f($y+1,$x)
}
for$y(1..$H){
	for$x(1..$W){
		if($c[$y][$x]eq's'){
			$c[$sy=$y][$sx=$x]='.'
		}elsif($c[$y][$x]eq'g'){
			$c[$gy=$y][$gx=$x]='.'
		}
	}
}
f($sy,$sx);
print$c[$gy][$gx]eq'='?'Yes':'No',$/

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result