Problem:
島の数

地勢を示す縦 12, 横 12 のマスからなる平面図があります。おのおののマスは白か黒に塗られています。白は海を、黒は陸地を表します。二つの黒いマスが上下、あるいは左右に接しているとき、これらは地続きであるといいます。この平面図では、黒いマス一つのみ、あるいは地続きの黒いマスが作る領域を「島」といいます。例えば下図には、5 つの島があります。

■■■■□□□□■■■■
■■■□□□□□■■■■
■■□□□□□□■■■■
■□□□□□□□■■■■
□□□■□□□■□□□□
□□□□□□■■■□□□
□□□□□■■■■■□□
■□□□■■■■■■■□
■■□□□■■■■■□□
■■■□□□■■■□□□
■■■■□□□■□□□□
□□□□□□□□□□□□

マスのデータを読み込んで、島の数を出力するプログラムを作成してください。

Input

入力は複数のデータセットからなります。各データセットに１つの平面図が与えられます。黒いマスを 1、白いマスを 0 で表現した 12 個の数字の列 12 行でひとつの平面図を表します。データセットの間は１つの空行で区切られています。

データセットの数は 20 を超えません。

Output

データセットごとに、島の数を１行に出力します。

Sample Input

111100001111
111000001111
110000001111
100000001111
000100010000
000000111000
000001111100
100011111110
110001111100
111000111000
111100010000
000000000000

010001111100
110010000010
010010000001
010000000001
010000000110
010000111000
010000000100
010000000010
010000000001
010010000001
010010000010
111001111100

000000000000
111111111111
100010100001
100010100001
100010100001
100010100001
100100100101
101000011101
100000000001
100000000001
111111111111
100000000001

Output for the Sample Input

5
13
4

Hint

以下はサンプルインプットを■と□で表したものです。

■■■■□□□□■■■■　　□■□□□■■■■■□□　　□□□□□□□□□□□□
■■■□□□□□■■■■　　■■□□■□□□□□■□　　■■■■■■■■■■■■
■■□□□□□□■■■■　　□■□□■□□□□□□■　　■□□□■□■□□□□■
■□□□□□□□■■■■　　□■□□□□□□□□□■　　■□□□■□■□□□□■
□□□■□□□■□□□□　　□■□□□□□□□■■□　　■□□□■□■□□□□■
□□□□□□■■■□□□　　□■□□□□■■■□□□　　■□□□■□■□□□□■
□□□□□■■■■■□□　　□■□□□□□□□■□□　　■□□■□□■□□■□■
■□□□■■■■■■■□　　□■□□□□□□□□■□　　■□■□□□□■■■□■
■■□□□■■■■■□□　　□■□□□□□□□□□■　　■□□□□□□□□□□■
■■■□□□■■■□□□　　□■□□■□□□□□□■　　■□□□□□□□□□□■
■■■■□□□■□□□□　　□■□□■□□□□□■□　　■■■■■■■■■■■■
□□□□□□□□□□□□　　■■■□□■■■■■□□　　■□□□□□□□□□□■

Solution in Ruby (judge verdict: Accepted)

class Board
  def initialize t
    @b = Array.new(144,0)
    (0..11).each do |x|
      (0..11).each do |y|
        if t[x][y] == "1" then
          @b[12*x+y] = 12*x+y+1
        end
      end
    end
  end

  def print
    (0..11).each do |x|
      (0..11).each do |y|
        if @b[12*x+y] != 0 then
          printf("%02x", @b[12*x+y])
        else
          printf( "  " )
        end
      end
      printf("\n")
    end
  end

  def neibor x, y
    n = []

    if @b[12*x+y] == 0 then
      return n
    else
      [ [x,y], [x-1,y], [x+1,y], [x,y-1], [x,y+1] ].each do |(xx,yy)|
        if 0 <= xx and xx < 12 and 0 <= yy and yy < 12 then
          v = @b[12*xx+yy]
          n.push v if v != 0
        end
      end
      n.uniq.sort
    end
  end

  def update tgt, val
    n = 0
    (12*12).times do |i|
      if tgt.include? @b[i] then
        @b[i] = val
        n += 1
      end
    end
    return n
  end

  def res
    @b.uniq.delete_if { |x| x == 0 }.size
  end
  
end

def solve t
  b = Board.new t
  while true
    c = 0
    12.times do |x|
      12.times do |y|
        n =  b.neibor(x,y)
        t =  n.shift
        c += b.update(n,t)
      end
    end
    break if c == 0
  end
#  b.print
  b.res
end

while not $stdin.eof? do
  t = []
  12.times do
    t.push $stdin.gets
  end
  $stdin.gets

  a = solve t

  printf("%d\n",a)
  
end