#include<stdio.h>

int n,m,st[26],a[26][26];
long double p[26],sp;

void solutie(){
	long double pr=1;
	for(int i=1;i<=m;i++)
		pr=pr*p[st[i]];
	sp=sp+pr;
}

void bkt(int k,int x){
	if(k==m+1) solutie();
	else {
			st[k]=x;
			while(st[k]<n-m+k) {st[k]++;
								bkt(k+1,st[k]);
			}
	}
}

void comb(){
int i,j;
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-1]+a[i-1][j];
}


int main(){
int i,c;
long double s=0;
freopen("dezastru.in","r",stdin);
freopen("dezastru.out","w",stdout);
scanf("%d%d",&n,&m);
for(i=1;i<=n;i++)
	scanf("%Lf",&p[i]);
comb();
c=a[n][m];
bkt(1,0);
s=sp/c;
printf("%Lf",s);
return 0;
}