Problem:
Score : 800 points

Problem Statement

Takahashi and Aoki will take N exams numbered 1 to N.
They have decided to compete in these exams.
The winner will be determined as follows:

For each exam i, Takahashi decides its importance c_i, which must be an integer between l_i and u_i (inclusive).

Let A be \sum_{i=1}^{N} c_i \times (Takahashi's score on Exam i), and B be \sum_{i=1}^{N} c_i \times (Aoki's score on Exam i). Takahashi wins if A \geq B, and Aoki wins if A < B.

Takahashi knows that Aoki will score b_i on Exam i, with his supernatural power.

Takahashi himself, on the other hand, will score 0 on all the exams without studying more. For each hour of study, he can increase his score on some exam by 1. (He can only study for an integer number of hours.)
However, he cannot score more than X on an exam, since the perfect score for all the exams is X.

Print the minimum number of study hours required for Takahashi to win.

Constraints

1 \leq N \leq 10^5

1 \leq X \leq 10^5

0 \leq b_i \leq X (1 \leq i \leq N)

1 \leq l_i \leq u_i \leq 10^5 (1 \leq i \leq N)

All values in input are integers.

Input

Input is given from Standard Input in the following format:

N X
b_1 l_1 u_1
b_2 l_2 u_2
:
b_N l_N u_N

Output

Print the minimum number of study hours required for Takahashi to win.

Sample Input 1

2 100
85 2 3
60 1 1

Sample Output 1

115

One optimal strategy is as follows:

Choose c_1 = 3, c_2 = 1.

Study to score 100 on Exam 1 and 15 on Exam 2.

Then, A = 3 \times 100 + 1 \times 15 = 315, B = 3 \times 85 + 1 \times 60 = 315 and Takahashi will win.

Sample Input 2

2 100
85 2 3
60 10 10

Sample Output 2

77

Sample Input 3

1 100000
31415 2718 2818

Sample Output 3

31415

Sample Input 4

10 1000
451 4593 6263
324 310 6991
378 1431 7068
71 1757 9218
204 3676 4328
840 6221 9080
684 1545 8511
709 5467 8674
862 6504 9835
283 4965 9980

Sample Output 4

2540

Solution in Julia (0.5.0) (judge verdict: Runtime Error)

parseInt(x)=parse(Int,x)
parseMap(x::Array{SubString{String},1})=map(parseInt,x)
function root(uf::Array{Int,1},x);s=x;while uf[s]>0;s=uf[s];end;s;end
function same(uf::Array{Int,1},x,y);root(uf,x)==root(uf,y)?true:false;end
function unite(uf::Array{Int,1},x,y);l=root(uf,x);r=root(uf,y);if l<r;uf[l]+=uf[r];uf[r]=l;elseif l>r;uf[r]+=uf[l];uf[l]=r;end;end

function main()
	n,x = readline() |> split |> parseMap
	e = Tuple{Int,Int,Int,Int}[(0,0,0,0) for i in 1:n]
	for i in 1:n
		b,l,u = readline() |> split |> parseMap
		e[i] = (b,l,u,(x-b)*u)
	end
	e = sort(e,by=x->x[4],rev=true)
	d = zeros(Int,n)
	d[1] = e[1][1]*e[1][2]
	for i in 2:n
		d[i] = d[i-1]+e[i][1]*e[i][2]
	end
	u = zeros(Int,n)
	u[1] = x*e[1][3]
	for i in 2:n
		u[i] = u[i-1]+x*e[i][3]
	end
	m = d[n]
	k = 0
	ans = 0
	if d[n]>0
		for i in 1:n
			d[n] += e[i][1]*(e[i][3]-e[i][2])
			if u[i]>=d[n]
				k = i
				if i>1
					m = d[n]-u[i-1]-e[i][1]*(e[i][3]-e[i][2])
				end
				break
			end
		end
	end
	mx = (0,0)
	for i in k:n
		if e[i][2]>mx[2]
			mx = (i,e[i][2])
		end
	end
	num = x
	for i in k:n
		if mx[2]>=e[i][3]
			num = min(num,ceil(Int,m/e[mx[1]][2]))
		else
			num = min(num,ceil(Int,(m+e[i][1]*(e[i][3]-e[i][2]))/e[i][3]))
		end
	end
	println(x*(k-1)+num)
end

main()