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

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

void bkt(int niv)
{
    int i;
    for(i=st[niv-1]+1;i<=n;i++)
    {
        st[niv]=i;
        if(niv==k)
        {
            double x=1;
            for(int ii=1;ii<=k;ii++)
            {
                x*=v[st[ii]];
            }
            rez=rez+(x*y)/nrs;
        }
        else
            bkt(niv+1);
    }
}

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