#include <iostream>
#include <fstream>
#include <iomanip>
#define ll long double
using namespace std;
ifstream f("dezastru.in");
ofstream g("dezastru.out");
long double x[30];
int n,k;
ll a[30][30];
int main()
{int i,j;
f>>n>>k;
for(i=1;i<=n;i++)
    f>>x[i];
for(i=0;i<=n;i++)
    a[i][0]=1;
for(i=1;i<=n;i++)
    for(j=1;j<=i;j++)
    a[i][j]=a[i-1][j]+(a[i-1][j-1]*x[i]);
long double fct=1;
for(i=k+1;i<=n;i++)
    fct*=i;
for(i=2;i<=n-k;i++)
    fct/=i;
g<<fixed<<setprecision(6)<<a[n][k]/fct;

    return 0;
}