#include <iostream>
#include <cstdio>
#include <algorithm>
#include <cstring>
using namespace std;
long long A[100011]={0};
long long s[100011]={0};
long long ans=0;
int main(){
	freopen("qwa.in","r",stdin);
	freopen("qwa.out","w",stdout);
	int n,k;
	scanf("%d %d",&n,&k);
	for(int i=1;i<=n;i++)
		scanf("%d",&A[i]);
	sort(A+1,A+n+1);
	for(int i=1;i<=n;i++)
		s[i]=s[i-1]+A[i];
	long long ans=0;
	for(int i=1;i<=k;i++)
		ans+=A[i]*(i-1)-s[i-1];
	long long cd=ans;
	long long sl=s[k];
	for(int i=k+1;i<=n;i++){
		ans=min(ans,cd);
		cd-=A[i-k]*(k-1);
		sl-=A[i-k];
		cd+=A[i]*(k-1);
		sl+=A[i];
	}
	printf("%lld\n",ans);
return 0;
}