#include <iostream>
using namespace std;
typedef long long ll;

int main()
{
    int n, k;
    cin >> n >> k;
    ll a[200005];
    for(int i = 0; i < n; i++) cin >> a[i];
    ll ans = 0;
    if(k * 2 < n){
        ll s = 0;
        for(int i = 0; i < k; i++) s += a[i] - a[0];
        for(int i = k; i < n; i++) s -= a[i] - a[0];
        ans = s;
        s = 0;
        for(int i = 0; i < n - k; i++) s -= a[n - 1] - a[i];
        for(int i = n - k; i < n; i++) s += a[n - 1] - a[i];
        ans = min(ans, s);
    }
    else{
        int x = (k * 2 - n) / 2;
        ll s = 0;
        for(int i = 0; i < k; i++) s += abs(a[i] - a[x]);
        for(int i = k; i < n; i++) s -= abs(a[i] - a[x]);
        ans = s;
        x = n - 1 - x;
        s = 0;
        for(int i = 0; i < n - k; i++) s -= abs(a[x] - a[i]);
        for(int i = n - k; i < n; i++) s += abs(a[x] - a[i]);
        ans = min(ans, s);
    }
    cout << ans << endl;
}