Submission #13174623

---

Source Code Expand

gets

ll = r_ = _l = rr = 0 # (ll, r_)(_l, rr)
r_min1 = r_min2 = l_min1 = l_min2 = [1000001,0]
$<.each{|s|
	z = s.size-1 # -1 for "\n"
	r = l = i = 0
	r = i = s.index(?(,0)||z if s[0] == ?)
	until i == z
		j = s.index(?),i)||z # i(((j
		k = s.index(?(,j)||z # j)))k

		cr = k-j-j+i-l
		if 0<cr
			r += cr
			l = 0
		else
			l = -cr
		end

		i = k
	end
	# r), (l

	if r == 0
		ll += l
	elsif l == 0
		rr += r
	else
		r_ += r
		_l += l
		if r < r_min2[0]
			if r < r_min1[0]
				r_min2 = r_min1
				r_min1 = [r,$.]
			else
				r_min2 = [r,$.]
			end
		end
		if l < l_min2[0]
			if l < l_min1[0]
				l_min2 = l_min1
				l_min1 = [l,$.]
			else
				l_min2 = [l,$.]
			end
		end
	end
}

if ll+_l == r_+rr and ll>=r_ && _l<=rr || [r_min1,r_min2].product([l_min1,l_min2]).any?{|(r,ri),(l,li)| ri!=li && ll>=r && l<=rr }
	puts'Yes'
else
	puts'No'
end

Submission Info

Judge Result