#include <cstdio>
#include <cstring>
#include <iostream>
#include <string>
#include <cmath>
#include <bitset>
#include <vector>
#include <map>
#include <set>
#include <queue>
#include <deque>
#include <algorithm>
#include <complex>
#include <unordered_map>
#include <unordered_set>
#include <random>
#include <cassert>
#include <fstream>
#include <utility>
#include <functional>
#include <stack>
#define popcount __builtin_popcount
using namespace std;
typedef long long int ll;
typedef pair<int, int> P;
ll a[200020];
ll s[200020];
int main()
{
    int n, k; cin>>n>>k;
    for(int i=0; i<n; i++){
        cin>>a[i];
        s[i+1]=s[i]+a[i];
    }
    ll ans=0;
    for(int i=0; i<n; i++){
        if(i<k) ans+=abs(a[0]-a[i]);
        else ans-=abs(a[0]-a[i]);
    }
    int l=0;
    for(int i=1; i<n; i++){
        ll t=a[i]*(i-l)-(s[i]-s[l])+s[l+k]-s[i]-a[i]*(l+k-i);
        while(l+k<n && t>a[i]*(i-l-1)-(s[i]-s[l+1])+s[l+k+1]-s[i]-a[i]*(l+k+1-i)){
            l++;
            t=a[i]*(i-l)-(s[i]-s[l])+s[l+k]-s[i]-a[i]*(l+k-i);
        }
        ans=min(ans, t*2-(a[i]*i-s[i]-a[i]*(n-i)+(s[n]-s[i])));
    }
    cout<<ans<<endl;
    return 0;
}