Submission #5896977

---

Source Code Expand

n,l = gets.split.map(&:to_i)
x = Array.new(n+2)
d = Array.new(n+2)
(1..n).each do |i|
    x[i],d[i] = gets.chomp.split
    x[i] = x[i].to_i
end
x[0] = 0
x[n+1] = l+1
d[0] = "L"
d[n+1] = "R"
ans = 0
a = 0
b = 1
s = t = 0
(1..(n+1)).each do |i|
    if d[i] == "R"
        if d[i-1] == "R"
            ans += (x[i]-x[i-1]-1)*a
            a += 1
        else
            ans += s*(a > b ? a : b)
            a = 1
            b = 0
        end
    else
        b += 1
        if d[i-1] == "R"
            s = x[i]-x[i-1]-1
            t = x[i]
        else
            ans += x[i]-t-b+1
        end
    end
end
puts ans

Submission Info

Judge Result