#include <iostream>
#include <fstream>
#include <iomanip>

using namespace std;
ifstream fin("dezastru.in");
ofstream fout("dezastru.out");

int n,k,i,g[30];
double v[30],sum,cnt;

void bkt(int pas, double produs)
{
    for (int i=g[pas-1]+1; i<=n-k+pas; i++)
    {
        g[pas]=i;

        if (pas<k)
            bkt(pas+1,produs*v[g[pas]]);
        else
        {
            sum+=produs*v[g[pas]];
            cnt++;
        }

    }
}
int main()
{
    fin>>n>>k;
    for (i=1; i<=n; i++)
        fin>>v[i];

    bkt(1,1);

    sum/=cnt;

    fout<<fixed<<setprecision(6)<<sum;
    return 0;
}