AT_arc167_c.cpp

#include<bits/stdc++.h>
#define int long long
using namespace std;
constexpr int MN=5e5+15,MOD=998244353;
int n,K,pw[MN],inv[MN],a[MN],f[MN],ans;

int ksm(int a,int b){
    int ret=1;
    while(b){
        if(b&1) ret=ret*a%MOD;
        a=a*a%MOD;
        b>>=1;
    }
    return ret;
}

void initpw(){
    pw[0]=1;
    for(int i=1;i<MN;i++) pw[i]=pw[i-1]*i%MOD;
    inv[MN-1]=ksm(pw[MN-1],MOD-2);
    for(int i=MN-2;i>=0;i--) inv[i]=inv[i+1]*(i+1)%MOD;;
    
}

int getC(int a,int b){
    if(a<b||a<0||b<0) return 0;
    return pw[a]*inv[b]%MOD*inv[a-b]%MOD;
}

signed main(){
    initpw();
    cin>>n>>K;
    for(int i=1;i<=n;i++){
        cin>>a[i];
    }
    sort(a+1,a+1+n);
    for(int i=1;i<=n;i++){
        for(int j=1;j<=K;j++){
            f[i]=(f[i]+getC(n-j,i-1))%MOD;
        }
        f[i]=f[i]*(i-1)%MOD*pw[i]%MOD*pw[n-i]%MOD;
    }
    for(int i=2;i<=n;i++){
        ans=(ans+a[i]*(f[i]-f[i-1]+MOD)%MOD)%MOD;
    }
    cout<<ans;

    return 0;
}