Problem:
Score : 400 points

Problem Statement

There are N squares aligned in a row.
The i-th square from the left contains an integer a_i.

Initially, all the squares are white.
Snuke will perform the following operation some number of times:

Select K consecutive squares. Then, paint all of them white, or paint all of them black. Here, the colors of the squares are overwritten.

After Snuke finishes performing the operation, the score will be calculated as the sum of the integers contained in the black squares.
Find the maximum possible score.

Constraints

1≤N≤10^5

1≤K≤N

a_i is an integer.

|a_i|≤10^9

Input

The input is given from Standard Input in the following format:

N K
a_1 a_2 ... a_N

Output

Print the maximum possible score.

Sample Input 1

5 3
-10 10 -10 10 -10

Sample Output 1

10

Paint the following squares black: the second, third and fourth squares from the left.

Sample Input 2

4 2
10 -10 -10 10

Sample Output 2

20

One possible way to obtain the maximum score is as follows:

Paint the following squares black: the first and second squares from the left.

Paint the following squares black: the third and fourth squares from the left.

Paint the following squares white: the second and third squares from the left.

Sample Input 3

1 1
-10

Sample Output 3

0

Sample Input 4

10 5
5 -4 -5 -8 -4 7 2 -4 0 7

Sample Output 4

17

Solution in Ruby (2.3.3) (judge verdict: Time Limit Exceeded)


nk = gets.chomp.split(" ").map(&:to_i)
a = gets.chomp.split(" ").map(&:to_i)
b = a.reverse

def search(a,nk)
ans = 0
last_chosen = 0
queue = []
for i in 0..nk[0]-1#-nk[1]
  if a[i] > 0 && i <= nk[0]-nk[1]
    ans += a[i] #if a[i] > 0
    last_chosen = i #if a[i] > 0
    queue.concat([*i+1..i+nk[1]-1]).uniq!
  elsif queue.include?(i)
    if queue.map{|t| a[t]}.inject(:+)<0
      #last_chosen = i
      queue=[]
    else
      queue.delete(i)
      ans += a[i]
    end
  end
end
#p ans

tmp1 = 0
last = a.size-1
#last_chosen+=1
#p last_chosen + nk[1]
#=begin
for i in last_chosen+nk[1]..(nk[0]-1)
  crt = nk[0] - 1 - (i - (last_chosen + nk[1]))
  #p [i, crt]
  #p a[crt]
  tmp1 += a[crt] if a[crt] > 0
  last = crt 
end

tmp2 = 0
for i in last_chosen+1..(nk[0]-1 -nk[1])
  #crt = nk[0] - 1 - (i - (last_chosen+1 + nk[1]))
 # p [i, crt]
  #p a[crt]
  tmp2 += a[i] if a[i] > 0
  last = crt 
end
#p ans
#p last_chosen..last
scores = last_chosen + nk[1] < a.size ? a[last_chosen+nk[1] .. -1].each_cons(nk[1]).map{|t| t.inject(:+)} : []
#p scores
scr = scores.size > 0 ? scores.max : 0
#p [scr,tmp1,tmp2]
ans += [scr, tmp1, tmp2].max
#ans += scores.max if scores.size > 0&& scores.max > 0
#for i in nk[0]-nk[1]..(nk[0]-1)
#  p a[i]
#  tmp += a[i] #if a[i] > 0
#end

#ans += tmp if tmp >0
return ans
end

ascore = search(a,nk)
bscore = search(b,nk)
if ascore > bscore
p ascore
else
p bscore
end

=begin
imos = []

(nk-1).times do |i|
imos << a[i+1] - a[i]
end
#cons = []
cons_index = []
cons_index_wh = []
if nk[0]>=nk[1]
a.each_cons(nk[1]).with_index do |items, i|
  score = items.inject(:+)
  p score
if score > 0
  cons_index.concat([*i..i+nk[1]-1])
elsif score < 0
  cons_index_wh.concat([*i..i+nk[1]-1])
end
end
p cons_index.uniq!
p cons_index_wh.uniq!
p cons_index_wh

k = cons_index.map{|t| a[t]}&.inject(:+) || 0
t = -cons_index_wh.map{|t| a[t]}&.inject(:+) || 0

if k>t
p k
else
p t
end
=end