#include <iostream>
#include <fstream>
#include <iomanip>
using namespace std;
ifstream f ("dezastru.in");
ofstream g ("dezastru.out");
long double v[30], m[30][30], pascal[30][30];
int main()
{
    int i, j, k, n;
    for(i=0; i<30; i++)
        pascal[i][0]=1;
    for(i=1; i<30; i++)
        for(j=1; j<=i;j++)
    {
        pascal[i][j]=pascal[i-1][j]+pascal[i-1][j-1];
    }
    f>>n>>k;
    for(i=1; i<=n; i++)
        f>>v[i];
    for(i=0; i<=n; i++)
        m[i][0]=1;
    for(i=1; i<=n; i++)
        for(j=1; j<=k; j++)
    {
            m[i][j]=m[i-1][j]+v[i]*m[i-1][j-1];
    }
    g<<fixed<<setprecision(10)<<m[n][k]/pascal[n][k]<<"\n";
    return 0;
}