Problem:
Problem B: 平安京ウォーキング

平安京は、道が格子状になっている町として知られている。

平安京に住んでいるねこのホクサイは、パトロールのために毎日自宅から町はずれの秘密の場所まで行かなければならない。しかし、毎日同じ道を通るのは飽きるし、後を付けられる危険もあるので、ホクサイはできるだけ毎日異なる経路を使いたい。その一方で、ホクサイは面倒臭がりなので、目的地から遠ざかるような道は通りたくない。

平安京のあちこちの道にはマタタビが落ちていて、ホクサイはマタタビが落ちている道を通ることができない。そのような道を通るとめろめろになってしまうからである。幸いなことに、交差点にはマタタビは落ちていない。

ホクサイは、自宅から秘密の場所までの可能な経路の数を知りたい。ここで、ホクサイの自宅は (0, 0) にあり、秘密の場所は(gx, gy)にある。道は x = i (i は整数), y = j (j は整数) に格子状に敷かれている。

Input

入力の1行目には、秘密の場所の座標 (gx, gy) が与えられる。これらはいずれも1以上15以下の整数で、空白1個で区切られて与えられる。 2行目にはマタタビが落ちている区間の数 p (0 ≤ p ≤ 100) が与えられ、続くp行にはマタタビが落ちている区間が1行に1区間ずつ与えられる。 p個の区間は互いに異なる。 1区間は x1 y1 x2 y2 の形で表され、(x1, y1) と (x2, y2) を端点とする、x軸またはy軸に平行な長さ1の線分である。 x1, x2 は [0, gx] の範囲にあり、y1, y2 は [0, gy] の範囲にある。

Output

可能な経路の数を出力せよ。可能な経路が1つもない場合は "Miserable Hokusai!" と1行に出力せよ。

Notes on Submission

上記形式で複数のデータセットが与えられます。入力データの 1 行目にデータセットの数が与えられます。各データセットに対する出力を上記形式で順番に出力するプログラムを作成して下さい。

Sample Input

4
2 2
0
1 1
2
0 0 0 1
0 0 1 0
4 3
4
1 0 0 0
3 3 4 3
4 1 4 0
0 2 0 3
15 15
0

Output for the Sample Input

6
Miserable Hokusai!
5
155117520

Solution in Ruby (judge verdict: Accepted)

require 'pp'

#pp $t

def init()
	$t = Array.new(17).map{Array.new(17, 0)}
	$t[1][1] = 1
	$vert = Array.new(17).map{Array.new(17, true)}
	$horiz = Array.new(17).map{Array.new(17, true)}
end

def input_matatabi()
	a = gets.chomp.split(" ").map{|str| str.to_i}
	if a[0] == a[2]
		$vert[a[0] + 1][[a[1], a[3]].min + 1] = false
	else
		$horiz[[a[0], a[2]].min + 1][a[1] + 1] = false
	end
end

def calc_t()
	for i in 1..16
		for j in 1..16
			if $vert[i][j - 1]
				$t[i][j] += $t[i][j - 1]
			end
			if $horiz[i - 1][j]
				$t[i][j] += $t[i - 1][j]
			end
		end
	end
end

n = gets.chomp.to_i

n.times do
	init()

	gx, gy = gets.chomp.split(" ").map{|str| str.to_i}
	num_matatabi = gets.chomp.to_i

	num_matatabi.times do
		input_matatabi
	end

	calc_t()

	if ($t[gx + 1][gy + 1] == 0)
		puts "Miserable Hokusai!"
	else
		puts $t[gx + 1][gy + 1]
	end

#	pp $vert.map{|a| a.map{|value| value ? 0 : 1}}
#	pp $horiz.map{|a| a.map{|value| value ? 0 : 1}}
#	pp $t
end