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
AC × 3
AC × 13
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