using namespace std;

#include<bits/stdc++.h>

typedef long long ll;
typedef pair<int, int> ii;
typedef pair<ll, ll> pll;
typedef vector<ii> vii;
typedef vector<int> vi;
typedef vector<vi> vvi;
typedef vector<ll> vll;
typedef vector<vll> vvll;

#define getBit(x,i) (x&(1<<i))
#define setBit(x,i) (x|(1<<i))
#define mem(A,N) memset(A,N,sizeof(A))
#define pb push_back
#define pf push_front
#define ppb pop_back
#define ppf pop_front
#define mp make_pair
#define rep(i, x, y)  for(int i = x; i < y; ++i)
#define Rep(i, x, y)  for(int i = x; i <= y; ++i)
#define srep(i, x, y) for(int i = x; i > y; --i)
#define sRep(i, x, y) for(int i = x; i >= y; --i)
#define All(v) v.begin(),v.end()
#define sortA(a) sort(a, a+n)
#define sortArr(a, i, n) sort(a+i, a+n)
#define SortArr(a, i, n) sort(a+i, a+n+1)
#define Sort(x) sort(x.begin(), x.end())
#define f1(i,n) for (int i=1; i<=n; i++)
#define f0(i,n) for (int i=0; i<n; i++)
#define sz(x) ((int)(x).size())
#define len(x) ((int)(x).length())
#define fi first
#define se second
#define concatenate(a, b) std::copy(b.begin(), b.end(), std::back_inserter(a));
// #define concatenate(a, b) a.insert(b.end(), b.begin(), b.end());
// std::move(b.begin(), b.end(), std::back_inserter(a)); "Undefined behaviour if a actually is b (which is OK if you know that can never happen - but worth being aware of in general purpose code)"
#define makeUnique(v) v.erase(unique(v.begin(), v.end()), v.end())
#define inRange(x, a, b) (a <= x && x < b)

#define linf 0x7FFFFFFFFFFFFFFF
#define inf 0x7FFFFFFF
ll mod = 1000000007;
#define eps 1e-9
#define Pi 3.14159265358979323846

//debug
#define dump(x)  cerr << #x << " = " << (x) << endl;
#define write(x) cerr << #x << " = " << (x) << ", ";
#define writeI0 cerr << "i = " << 0 << ", ";
#define dumpI0 cerr << "i = " << 0 << endl;
#define printSet(s) for(auto it = s.begin(); it!=s.end(); it++) (it==s.begin())? cout << *it : cout << ' ' << *it; cout << endl;
#define printMap(m) for(auto it = m.begin(); it!=m.end(); it++) (it==m.begin())? cout << '(' << it->first << ", " << it->second << ')' : cout << " (" << it->first << ", " << it->second << ')'; cout << endl;
#define printPairSet(s) for(auto it = s.begin(); it!=s.end(); it++) (it==s.begin())? cout << '(' << it->first << ", " << it->second << ')' : cout << " (" << it->first << ", " << it->second << ')'; cout << endl;
#define printVector(x) for(auto it = x.begin(); it!=x.end(); it++) (it==x.begin())? cout << *it : cout << ' ' << *it; cout << endl;
#define printArray(a,x,y) for(auto it = a+x; it != a+y; it++) (it==a+x)? cout << *it : cout << ' ' << *it; cout << endl;
#define PrintArray(a,x,y) for(auto it = a+x; it != a+y+1; it++) (it==a+x)? cout << *it : cout << ' ' << *it; cout << endl;

// ***************** End Of Template ********************

// O(log(e))
ll modPow(ll b, ll e) {
	ll r = 1;
	while(e > 0) {
		if(e & 1) {
			r = (long long) r * b % mod;
		}
		b = (long long) b * b % mod;
		e /= 2;
	}
	return r;
}

// O(log(mod))
ll modInverse(ll a) {
	return modPow(a, mod-2);
}

ll a[100010];
//int p[100010];
int n, k;

int main() {
	ios_base::sync_with_stdio(false); cin.tie(NULL);
	cin >> n >> k;
	rep(i, 0, n) cin >> a[i];
	sort(a, a+n);
//	p[0] = a[0];
//	rep(i, 1, n) p[i] = p[i-1] + a[i];

	ll mxS = 1 * a[k-1];
//	ll r = 1;

	ll fUpper = k;
	ll fDown = 1;

	ll nextUpper = k+1;
	ll nextDown = 2;

	rep(i, k, n) {
		mxS = (mxS + (ll) fUpper * modInverse(fDown) % mod * a[i] % mod) % mod;
//		r += fUpper / fDown;

		fUpper = (ll) fUpper * nextUpper % mod;
		fDown = (ll) fDown * nextDown % mod;

		nextUpper++; nextDown++;
//		cout << mxS << endl;
	}

//	cout << "r = " << r << endl;

	ll mnS = 1 * a[n-k];

	fUpper = k;
	fDown = 1;

	nextUpper = k+1;
	nextDown = 2;

	sRep(i, n-k-1, 0) {
		mnS = (mnS + (ll) fUpper * modInverse(fDown) % mod * a[i] % mod) % mod;

		fUpper = (ll) fUpper * nextUpper % mod;
		fDown = (ll) fDown * nextDown % mod;

		nextUpper++; nextDown++;
	}

	cout << (mxS - mnS + mod) % mod << '\n';

	return 0;
}

Measured memory_bytes: 1024