Problem:
Railroad Conflict

Nate U. Smith は大都市圏の鉄道会社を経営している．この大都市圏には，彼の鉄道会社以外にライバルの鉄道会社がある．2 社は互いに競合関係にある．

この大都市圏では，列車の運行を容易にするため，全ての路線は両端の駅を結んだ線分を経路としている．また，踏切等の設置をさけるため，全ての路線は高架または地下に敷設されている．既存路線は，全線にわたって高架を走るか，または全線にわたって地下を走るかのいずれかである．

ところで，最近，この大都市圏にある 2 つの街区 A，B がさかんに開発されていることから，Nate の会社ではこれらの街区の間に新しい路線を設けることを決断した．この新路線は，従来の路線と同様に A，B を両端とする線分を経路としたいが，経路の途中には別の路線があることから，高架あるいは地下のいずれかに全線を敷設することは不可能である．そこで，路線の一部を高架に，残りの部分を地下に敷設することにした．このとき，新路線が自社の既存路線と交わるところでは，新路線と既存路線との間の乗り継ぎを便利にするため，既存路線が高架ならば新路線も高架に，既存路線が地下ならば新路線も地下を走るようにする．また，新路線が他社の既存路線と交わるところでは，他社による妨害をさけるため，既存路線が高架ならば新路線は地下に，既存路線が地下ならば新路線は高架を走るようにする．A 駅および B 駅をそれぞれ高架あるいは地下のいずれに設けるかは特に問わない．

当然のことながら，新路線が高架から地下に，あるいは地下から高架に移るところには出入口を設けなければならない．ところが，出入口を設けるためには費用がかかるため，新路線に設ける出入口の個数は最小限に抑えたい．それには，プログラマであるあなたの助けを要すると考えた Nate は，あなたを彼の会社に呼び出した．

あなたの仕事は，A 駅，B 駅の位置，そして既存路線に関する情報が与えられたときに，新路線において最低限設けなければならない出入口の個数を求めるプログラムを作成することである．

以下の図は，サンプルとして与えた入力および出力の内容を示したものである．

Input

入力の先頭行には単一の正の整数が含まれ，これはデータセットの個数を表す．それぞれのデータセットは次の形式で与えられる．

xa ya xb yb

n

xs1 ys1 xt1 yt1 o1 l1

xs2 ys2 xt2 yt2 o2 l2

...

xsn ysn xtn ytn on ln

ただし，(xa,ya) および (xb,yb) はそれぞれ A 駅，B 駅の座標を表す．N は既存路線の数を表す 100 以下の正の整数である．(xsi,ysi) および (ysi,yti) は i 番目の既存路線における始点および終点の座標を表す．oi は i 番目の既存路線の所有者を表す整数である．これは 1 または 0 のいずれかであり，1 はその路線が自社所有であることを，0 は他社所有であることをそれぞれ表す．li は i 番目の既存路線が高架または地下のいずれにあるかを表す整数である．これも 1 または 0 のいずれかであり，1 はその路線が高架にあることを，0 は地下にあることをそれぞれ表す．

入力中に現れる x 座標および y 座標の値は -10000 から 10000 の範囲にある（両端も範囲に含まれる）．また，それぞれのデータセットにおいて，新路線を含めた全ての路線に対して，以下の条件を満たすと仮定してよい．ここで 2 点が非常に近いとは，その 2 点間の距離が 10-9 以下であることを表す．

ある交点の非常に近くに別の交点があることはない．

ある路線の端点の非常に近くを別の路線が通ることはない．

2 つの路線の一部または全部が重なることはない．

Output

それぞれのデータセットに対して，最低限設けなければならない出入口の個数を 1 行に出力しなさい．

Sample Input

2
-10 1 10 1
4
-6 2 -2 -2 0 1
-6 -2 -2 2 1 0
6 2 2 -2 0 0
6 -2 2 2 1 1
8 12 -7 -3
8
4 -5 4 -2 1 1
4 -2 4 9 1 0
6 9 6 14 1 1
-7 6 7 6 0 0
1 0 1 10 0 0
-5 0 -5 10 0 1
-7 0 7 0 0 1
-1 0 -1 -5 0 1

Output for the Sample Input

1
3

Solution in Ruby (judge verdict: Accepted)

def contact(a,b)
	ax,ay,bx,by = a
	cx,cy,dx,dy = b
	d = (bx-ax)*(dy-cy)-(by-ay)*(dx-cx)
	acx = cx-ax
	acy = cy-ay
	if d == 0
		nil
	else
		r = ((dy-cy)*acx-(dx-cx)*acy)/d
		s = ((by-ay)*acx-(bx-ax)*acy)/d
		if (0.0..1.0).include? r and (0.0..1.0).include? s
			[ax+(bx-ax)*r,ay+(by-ay)*r]
		else
			nil
		end
	end
end

gets.to_i.times {
	line = gets.split(" ").map(&:to_f)
	p Enumerator.new {|y|
		sx,sy = line
		gets.to_i.times {
			rail = gets.split(" ").map(&:to_f)
			if !(p = contact(rail,line)).nil?
				dx , dy = p
				_,_,_,_,o,l = rail
				arr = [[1,0],[0,1]]
				y << [(sx-dx)**2 + (sy-dy)**2,arr[o][l]]
			end
		}
	}.sort {|a,b|
		a[0] <=> b[0]
	}.each_cons(2).count {|a,b|
		a[1]!=b[1]
	}
}