Submission #2460995
Source Code Expand
var n,m:longint; i,j:longint; a:array[0..150,0..150]of char; begin readln(n,m); for i:=1 to n do begin for j:=1 to m do read(a[i,j]); readln; end; for i:=1 to n do for j:=1 to m do if (a[i,j]='#')and(a[i-1,j]<>'#')and(a[i,j-1]<>'#')and(a[i+1,j]<>'#')and(a[i,j+1]<>'#') then begin writeln('No'); exit; end; writeln('Yes'); end.
Submission Info
Submission Time | |
---|---|
Task | C - Grid Repainting 2 |
User | Bunnycxk |
Language | Pascal (FPC 2.6.2) |
Score | 300 |
Code Size | 407 Byte |
Status | AC |
Exec Time | 0 ms |
Memory | 128 KB |
Compile Error
/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 300 / 300 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | sample_01.txt, sample_02.txt, sample_03.txt |
All | in01.txt, in02.txt, in03.txt, in04.txt, in05.txt, in06.txt, in07.txt, in08.txt, in09.txt, in10.txt, sample_01.txt, sample_02.txt, sample_03.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
in01.txt | AC | 0 ms | 128 KB |
in02.txt | AC | 0 ms | 128 KB |
in03.txt | AC | 0 ms | 128 KB |
in04.txt | AC | 0 ms | 128 KB |
in05.txt | AC | 0 ms | 128 KB |
in06.txt | AC | 0 ms | 128 KB |
in07.txt | AC | 0 ms | 128 KB |
in08.txt | AC | 0 ms | 128 KB |
in09.txt | AC | 0 ms | 128 KB |
in10.txt | AC | 0 ms | 128 KB |
sample_01.txt | AC | 0 ms | 128 KB |
sample_02.txt | AC | 0 ms | 128 KB |
sample_03.txt | AC | 0 ms | 128 KB |