#include <stdio.h>

typedef long long tipus1;
typedef long double tipus2;

tipus1 n,k,v[27],nfact,nkfact,kfact;
tipus2 a[27],sum=0;

tipus1 fact(tipus1 p){
tipus1 i,temp=1;

for(i=2;i<=p;i++){temp*=i;}

return temp;

}


void kiir(){
tipus1 i;

for(i=1;i<=k;i++){printf("%Lf ",a[v[i]]);}

printf("\n");
}


void osszead(){
tipus1 i;
tipus2 temp=1;

for(i=1;i<=k;i++){temp*=a[v[i]];}

temp*=kfact*nkfact;
sum+=temp;
}

void back(tipus1 p){
tipus1 i;

for(i=v[p-1]+1;i<=n;i++){
v[p]=i;
if(p==k){osszead();}else{back(p+1);}

}

}


int main(){
freopen("dezastru.in","r",stdin);
freopen("dezastru.out","w",stdout);
tipus1 i;
scanf("%lld %lld",&n,&k);
for(i=1;i<=n;i++){scanf("%Lf",&a[i]);}

nfact=fact(n);
nkfact=fact(n-k);
kfact=fact(k);

back(1);

sum/=nfact;

printf("%Lf",sum);

	return 0;}