Problem:
Blur

図 1 のような 10×10 のマス目の「布」があり、（1，2）のようにX座標・Y座標の値の対でマス目を示すことにします。座標値は 0 から始まる整数とします。例えば、図 1 の◎の座標は (1, 2) です。
この「布」に染料を少しずつたらして染物を作ります。たらす染料の滴には「大」「中」「小」の 3 サイズがあり、染料の滴の落ちたマス目を中心に図 1 のように周囲も色がつきます。図 1 で☆が中心、○が色のにじむ範囲です。

「布」は、最初は「まっしろ」つまり、どのマス目も色の濃さを示す値が 0 とします。染料の滴が落ちるごとに値が 1 ずつ増えていきます。「小」が（1, 2）、「中」が（3, 2）に落ちた場合、各マス目の値は図 2 の左のようになります。染料がもったいないので、図 2 の右に示すようなにじむ範囲が布の外にはみ出すような染料の落とし方はしないことになっています。また、同じ場所に複数の染料をたらすこともあります。

このような作業を何回か繰り返した結果、布にすばらしい模様が浮かび上がりましたが、残念なことに、うっかり作業経過を記録し忘れてしまいました。どうにもさっぱり思い出せませんが、かろうじて、落とした染料の滴数は覚えていました。あなたは、すばらしい染物を再現しなければなりません。すばらしい染物のデータを読みこんで、どこに、どのような染料をたらしたかを出力するプログラムを作成してください。なお、落とした染料の滴数は 12 以下とします。

入力

入力の形式は以下のとおりです：

最初の 1 行に落とした染料の滴数 n が与えられます。次の行から 10 行に各座標の色の濃さが空白区切りで与えられます。

出力

出力は n 行からなります。染料の滴の「大」を 3、「中」を 2、「小」を 1 で表し、落とした染料ごとに、そのX座標、Y座標、滴の大きさを空白で区切って1行に出力してください。

染料のたらし方はどのような順番で出力しても良いものとします。

入力例1

2
0 0 0 0 0 0 0 0 0 0
0 0 0 1 0 0 0 0 0 0
0 0 1 1 1 0 0 0 0 0
0 0 0 1 0 0 0 1 1 1
0 0 0 0 0 0 0 1 1 1
0 0 0 0 0 0 0 1 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 0 0 0 0

出力例1

3 2 1
8 4 2

入力例2

6
0 0 1 0 0 0 0 0 0 0
0 1 1 1 0 0 0 0 0 0
1 1 1 1 1 1 1 1 0 0
0 1 1 1 1 1 1 1 0 0
0 0 1 1 1 3 1 1 0 0
0 0 1 1 3 1 1 1 0 0
0 0 1 1 1 1 1 1 1 0
0 0 1 1 1 1 1 1 1 1
0 0 0 0 0 0 1 1 1 0
0 0 0 0 0 0 0 1 0 0

出力例2

2 2 3
7 7 3
6 3 2
3 6 2
4 4 1
5 5 1

Solution in Ruby (judge verdict: Accepted)

$drops = [
  [[0, 0], [-1, 1], [0, 1], [1, 1], [0, 2]],
  [[0, 0], [1, 0], [2, 0], [0, 1], [1, 1], [2, 1], [0, 2], [1, 2], [2, 2], ],
  [[0, 0], [-1, 1], [0, 1], [1, 1], [-2, 2], [-1, 2], [0, 2], [1, 2], [2, 2],
   [-1, 3], [0, 3], [1, 3], [0, 4]]
]

$areas = [5, 9, 13]

$cnts = [[0, 1], [1, 1], [0, 2]]

### subroutines

def dropped?(x, y, d, pl)
  $drops[d].each do |v|
    x0 = x + v[0]
    y0 = y + v[1]
    if x0 >= 0 && x0 <= 9 && y0 >= 0 && y0 <= 9 && pl[y0][x0] == 0
      return false
    end
  end

  return true
end

def paint(x, y, d, c, pl)
  $drops[d].each do |v|
    x0 = x + v[0]
    y0 = y + v[1]
    if x0 >= 0 && x0 <= 9 && y0 >= 0 && y0 <= 9
      pl[y0][x0] += c
    end
  end
end

def check_pl(x, y, n, cs, pl, pts = [])
  if n == 0
    if cs == 0
      pts.each{|p| puts p.join(" ")}
      return true
    end
    return false
  end

  while pl[y][x] == 0
    x += 1
    if x > 9
      x = 0
      y += 1
    end
  end

  for d in (0...$drops.length)
    if dropped?(x, y, d, pl)
      xc = x + $cnts[d][0]
      yc = y + $cnts[d][1]
      pts.push [xc, yc, d + 1]
      paint(x, y, d, -1, pl)

      if check_pl(x, y, n - 1, cs - $areas[d], pl, pts)
        return true
      end

      paint(x, y, d, 1, pl)
      pts.pop
    end
  end

  return false
end

### main

while (line = gets)
  n = line.chomp.to_i

  pl = []
  cs = 0

  10.times.each do
    hl = gets.chomp.split(" ").map{|s| s.to_i}
    pl.push hl
    hl.each {|c| cs += c}
  end

  check_pl(0, 0, n, cs, pl)
end