#include <fstream>
#include <iomanip>

using namespace std;
ifstream f("dezastru.in");
ofstream g("dezastru.out");
int n,k,i,j,f1,f2,f3,comb;
long double a[50],mat[50][50];
int main()
{
    f>>n>>k;
    f1=1;
    for(i=1;i<=n;i++)
    {
        f>>a[i];
    }
    f2=1;
    for(i=1;i<=min(n-k,k+1);i++)
    {
        f1*=i;
    }
    for(i=max(n-k+1,k+1);i<=n;i++)
    {
        f2*=i;
    }
    comb=f2/f1;
    for(i=0;i<=n;i++)
    {
        mat[i][0]=1;
    }
    for(i=1;i<=n;i++)
    {
        for(j=1;j<=i;j++)
            mat[i][j]=mat[i-1][j]+mat[i-1][j-1]*a[i];
    }
    g<<fixed<<setprecision(6)<<mat[n][k]/comb<< '\n';
    return 0;
}