def min(a,b); a < b ? a : b; end
def max(a,b); a > b ? a : b; end
  
N, K = gets.split.map(&:to_i)
X = gets.split.map(&:to_i)
A = gets.split.map(&:to_i)

l = r = K - 1
v_min = X[l] - A[l]
v_max = X[r] + A[r]

loop do
  l_ = (0 .. l).bsearch{|i| X[i] >= v_min }
  r_ = (r ... N).bsearch{|i| i + 1 >= N || X[i + 1] > v_max }
  
  break if l_ == l && r_ == r
  
  (l_ .. l).each do |i|
    v_min = min(v_min, X[i] - A[i])
    v_max = max(v_max, X[i] + A[i])
  end
  
  (r .. r_).each do |i|
    v_min = min(v_min, X[i] - A[i])
    v_max = max(v_max, X[i] + A[i])
  end

  l = l_
  r = r_
end

puts r - l + 1