#include <iostream>
#include <fstream>
#include <iomanip>
using namespace std;

ifstream f ("dezastru.in");
ofstream g ("dezastru.out");


int n, m, t;
int sol[30], fr[30], c[30][30];
float rezultat, v[30], x[30][30];

void citeste ()
{
    f>>n>>m;
    c[0][0]=1; x[0][0]=1;
    for (int i=1; i<=n; i++)
    {
        f>>v[i];
        c[i][0]=1;
        x[i][0]=1;
    }
}

void rezolva ()
{
    for (int i=1; i<=n; i++)
        for (int j=1; j<=m; j++)
        {
            c[i][j]=c[i-1][j]+c[i-1][j-1];
            x[i][j]=x[i-1][j]+x[i-1][j-1]*v[i];
        }
}

int main()
{
    citeste ();
    rezolva ();
    rezultat=x[n][m]/c[n][m];
    g<<fixed<<setprecision(6)<<rezultat<<'\n';
    return 0;
}