//Vasilut
#include<fstream>
#define NN 26

using namespace std;
ofstream out("dezastru.out");

float bst[NN][NN],sir[NN],comb;
int n,k;

void read();
void init();
void solve();
void write();

int main()
{
    read();
    solve();
    write();
    return 0;
}

void read()
{
    ifstream in("dezastru.in");
    in>>n>>k;
    for(int i=1;i<=n;i++)
    {
        in>>sir[i];
        bst[i][0]=1;
    }
    bst[0][0]=1;
}

void init()
{
    comb=1;
    for(int i=k+1;i<=n;i++)
    comb=comb*i;
    for(int i=i;i<=(n-k);i++)
    comb=comb/i;
}

void solve()
{
    for(int i=1;i<=n;i++)
    {
            for(int j=1;j<=k;j++)
        {
        bst[i][j]=bst[i-1][j] + bst[i-1][j-1]*sir[i];
        }
    }
    init();
}

void write()
{
    out<<bst[n][k]/comb<<'\n';
}