#include <bits/stdc++.h>
using namespace std;
ifstream fin("dezastru.in");
ofstream fout("dezastru.out");
const long long NMAX = 30;
double a[NMAX],rasp;
long long n,k;

long long fact(long long n){
    long long rasp=1;
    for(long long i=1;i<=n;i++) rasp*=i;
    return rasp;
}

void bkt(double pr,long long k,long long last){
    if(k==0){
        rasp+=pr;
        return;
    }
    for(long long i=last+1;i<=n;i++){
        bkt(pr*a[i],k-1,i);
    }
}

int main()
{
    fin >> n >> k;
    for(long long i=1;i<=n;i++) fin >> a[i];
    for(long long i=1;i<=n;i++) bkt(a[i],k-1,i);
    long long nrr=fact(n)/(fact(n-k)*fact(k));
    fout << fixed << setprecision(6) << (double)(rasp/(double)(nrr));
    return 0;
}