using namespace std;
#include<fstream>
#include<iomanip>
ifstream eu("dezastru.in");
ofstream tu("dezastru.out");
#define Nmax 100
int N,K;
double A[Nmax][Nmax],V[Nmax],C=1;
int main()
{   eu>>N>>K;
	A[0][0]=1;
    for(int i=1;i<=N;i++)
	{
		eu>>V[i];
		A [i][0]=1;
	}
    for(int i=1;i<=N;i++)
        for(int j=1;j<=K;++j)
            A[i][j]=A[i-1][j]+A[i-1][j-1]*V[i];
    for(int i=2;i<=N;i++)
		C*=i;
	for(int i=2;i<=K;i++)
		C/=i;
    for(int i=2;i<=N-K;i++)
		C/=i;
	tu<<setprecision(6)<<A[N][K]/C;
    return 0;
}