Submission #3729440

---

Source Code Expand

var
	h,w,x,y,i,j,k,cnt:Longint;
	s:array[1..39]of String[39];
	d:array[0..4]of Longint=(0,1,0,-1,0);
begin
	readln(h,w);
	for i:=1 to h do begin
		readln(s[i]);
		for j:=1 to w do begin
			if s[i,j]='@'then begin
				x:=i;
				y:=j;
			end else if s[i,j]='*'then inc(cnt);
		end;
	end;
	while cnt>0 do begin
		if y=1 then begin
			if x=1 then k:=0 else k:=3;
		end else begin
			if x mod 4=1 then begin
				if y<w then k:=0 else k:=1;
			end else begin
				if(y=3)and(x<h)then k:=1 else k:=2;
			end;
		end;
		inc(x,d[k]);
		inc(y,d[k+1]);
		if s[x,y]='.'then s[x,y]:='#';
		inc(x,d[k]);
		inc(y,d[k+1]);
		if s[x,y]='.'then s[x,y]:='#'else if s[x,y]='*'then dec(cnt);
	end;
	for i:=1 to h do writeln(s[i]);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result