Problem:
平面上の図形

縦 8、横 8 のマスからなる図 1 のような平面があります。

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

図１

この平面上に、以下の A から G の図形のどれかが一つだけ置かれています。

A

■

■

■

■

B

■

■

■

■

C

■

■

■

■

D

■

■

■

■

E

■

■

■

■

F

■

■

■

■

G

■

■

■

■

たとえば、次の図 2 の例では E の図形が置かれています。

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

■

■

□

□

□

□

□

□

□

■

■

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

□

図２

平面の中で図形が占めているマスを 1、占めていないマスを 0 で表現した数字の列を読み込んで、置かれている図形の種類（A〜G）を出力するプログラムを作成してください。

ただし、ひとつの平面に置かれている図形は必ず１つで、複数の図形が置かれていることはありません。また、A〜G で表される図形以外のものが置かれていることはありません。

Input

入力は複数のデータセットからなります。

１つのデータセットとして、平面の中で図形が占めているマスを 1、占めていないマスを 0 で表現した 8 文字からなる 8 つの文字列が与えられます。例えば、図 2 に対応する文字列の並びは次のようになります。

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

1

1

0

0

0

0

0

0

0

1

1

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

データセットの間は１つの空行で区切られています。データセットの数は 50 を超えません。

Output

各データセットごとに、平面に与えられた図形の種類（A〜G のいずれか）を１行に出力してください。

Sample Input

00000000
00000000
01100000
00110000
00000000
00000000
00000000
00000000

00011110
00000000
00000000
00000000
00000000
00000000
00000000
00000000

00000000
00000000
00110000
00110000
00000000
00000000
00000000
00000000

Output for the Sample Input

E
C
A

Solution in Ruby (judge verdict: Accepted)

# AOJ 0036 A Figure on Surface

$WIDTH = $HEIGHT = 8

class Map
  FIGURES = {
    A: [
              [0, 1],
      [1, 0], [1, 1]
    ],
    B: [
      [1, 0],
      [2, 0],
      [3, 0]
    ],
    C: [
      [0, 1], [0, 2], [0, 3]
    ],
    D: [
      [1, -1], [1, 0],
      [2, -1]
    ],
    E: [
      [0, 1],
      [1, 1], [1, 2]
    ],
    F: [
      [1, 0], [1, 1],
              [2, 1]
    ],
    G: [
                       [0, 1],
      [1, -1], [1, 0]
    ]
  }

  def initialize(lines)
    @map = Array.new($HEIGHT + 4) {Array.new($WIDTH + 4, -1)}

    lines.each.with_index(1) do |row, i|
      row.each_char.with_index(1) do |c, j|
        @map[i][j] = c.to_i
      end
    end

    @figures = Hash[
      FIGURES.map {|name, cells| [name, figure?(cells)]}
    ]
  end

  def determine_figure
    (1..$HEIGHT).each do |i|
      (1..$WIDTH).each do |j|
        if @map[i][j] == 1
          @figures.each do |name, det|
            return name if det[i, j]
          end
        end
      end
    end

    nil
  end

  private
  # その形状であるかを返す lambda を返す。
  # 返された lambda には基準となる位置の i, j を渡す。
  #
  # [cells]
  # 1 でなければならない相対位置 [i_r, i_j] の配列
  def figure?(cells)
    lambda {|i, j|
      cells.map {|i_r, j_r| @map[i + i_r][j + j_r]}.all? {|v| v == 1}
    }
  end
end

while line = gets
  line.chomp!
  next if line.empty?

  lines = [line]
  ($HEIGHT - 1).times do
    lines << gets.chomp
  end

  puts Map.new(lines).determine_figure
end