#include <iostream>
#include <fstream>
#include <iomanip>
#define DN 30
using namespace std;

int n,k,cont;
double sir[DN],total;

static inline void gen(int a, int b, double sol) {
    if(a==k) {
        ++cont;
        total+=sol;
        return;
    }
    for (int i=b+1; i<=n+a-k+1; ++i) gen(a+1,i,sol*sir[i]);
}

int main()
{
    ifstream f("dezastru.in");
    ofstream g("dezastru.out");
    f>>n>>k;
    for(int i=1; i<=n; ++i) f>>sir[i];
    gen(0,0,1);
    g<<fixed<<setprecision(6)<<total/double(cont);
    return 0;
}