ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program p1;

type
  arr=array[1..40000] of byte;

var
  n,m,i,j,count:integer;
  c:array[0..201,0..201] of char;
  first,last:word;
  ii,jj:^arr;
  input,output: text;

procedure put(i,j:integer);
   begin
      if c[i,j]='#' then begin
         inc(last);
         ii^[last]:=i;
         jj^[last]:=j;
         c[i,j]:='.';
      end;
   end;

   procedure get(var i,j:integer);
   begin
      i:=ii^[first];
      j:=jj^[first];
      inc(first);
   end;

   procedure paint(i,j:integer);
   begin
      first:=1;
      last:=0;
      put(i,j);
      while first<=last do begin
         get(i,j);
         put(i+1,j);
         put(i-1,j);
         put(i,j+1);
         put(i,j-1);
      end;
   end;

begin
   new(ii);
   new(jj);
   assign(input,'c:\beds.in');
   assign(output,'c:\beds.out');
   reset(input);
   rewrite(output);
   readln(input,n,m);
   for i:=0 to n+1 do
      for j:=0 to m+1 do
         c[i,j]:='.';
   for i:=1 to n do begin
      for j:=1 to m do
         read(input,c[i,j]);
      readln(input);
   end;
   count:=0;
   for i:=1 to n do
      for j:=1 to m do
         if c[i,j]='#' then begin
            paint(i,j);
            inc(count);
         end;
   write(output,count);
   close(input);
   close(output);
end.

#include <fstream.h>

char c[202][202];

typedef arr, byte[40000];

unsigned short first,last;

int n,m,i,j,coun;

arr *ii, *jj;

void put(int i, int j)
{
  if (c[i][j] == '#')
    {
      last++;
      ii[last] = i;
      jj[last] = j;
      c[i][j] = '.';
    }
}

void get(int *i, int *j)
{
  *i = ii[first];
  *j = jj[first];
  first++;
}

void paint(int i, int j)
{
  first = 1;
  last = 0;
  put(i,j);
  while (first<=last)
    {
      get(&i,&j);
      put(i+1,j);
      put(i-1,j);
      put(i,j+1);
      put(i,j-1);
    }
}

void main()
{
  ii = new arr;
  jj = new arr;
  ifstream input("beds.in");
  ofstream output("beds.out");
  input >> n;
  input >> m;
  for (i = 0; i <= n+1; i++)
    for (j = 0; j <= m+1; j++)
      c[i][j] = '.';
  for (i = 1; i <= n; i++)
    {
      for (j = 1; j <= m; j++)
        input >> c[i][j];
    }
  coun = 0;
  for (i = 1; i <= n; i++)
    for (j = 1; j <= m; j++)
      if (c[i][j] == '#')
        {
          paint(i,j);
          coun++;
        }
/*  delete[] ii;
  delete[] jj;  */
  output << coun;
}

# -*- coding: cp1251 -*-
from UserString import MutableString

lines = [
    "1100111110",
    "0011100010",
    "0010000111",
    "0010110010",
    "0010000010",
    "0011111110"
    ]

lines.insert(0, MutableString("0"*len(lines[0])))
lines.append(MutableString("0"*len(lines[0])))

for i in range(len(lines)):
    lines[i] = MutableString("0" + lines[i] + "0")
    
def convert1To2():
    done = False
    while not done:
        done = True
        for i in range(len(lines)):
            for j in range(len(lines[i])):
                if lines[i][j] == '1' and \
                       (lines[i+1][j] == '2' or \
                        lines[i-1][j] == '2' or \
                        lines[i][j+1] == '2' or \
                        lines[i][j-1] == '2'):
                    lines[i][j] = '2'
                    done = False

amount = 0

for i in range(len(lines)):
    for j in range(len(lines[i])):
        if lines[i][j] == '1':
            lines[i][j] = '2'
            amount += 1
            convert1To2()

print "Итого: ", amount