#include<fstream>
#include<iostream>
#include<iomanip>
#include<cmath>
using namespace std;
ifstream fin("dezastru.in");
ofstream fout("dezastru.out");
int st[50],n,k,nrs,i;
double s,v[50],rez;
long long y,z;

int fact(int x)
{
    int y=1;
    for(int i=1;i<=x;i++)
        y*=i;
    return y;
}

int main()
{
    fin>>n>>k;
    for(i=1;i<=n;i++)
    {
        fin>>v[i];
        s+=v[i];
    }
    rez=0;
    for(i=1;i<=n;i++)
    {
        rez=rez+v[i]*(s-v[i]);
    }
    y=fact(n-k); z=fact(n); nrs=z/y;
    rez/=nrs;
    fout<<fixed<<setprecision(6)<<rez;
    return 0;
}