#include <iostream>
#include <fstream>
#include <iomanip>
using namespace std;
ifstream f("dezastru.in");
ofstream g("dezastru.out");
int n,k,sol[30],nr=1,m,x;
float a[30],r;
void bkt(int poz, float p,int nr)
{   if(poz==k+1)
    {   r+=p;
        x++;
        return;
    }
    for(int i=poz+nr;i<=n;i++)
    {   bkt(poz+1,p*a[i],nr);
        nr++;
    }
}
int main()
{
    f>>n>>k;
    for(int i=1;i<=n;i++) f>>a[i];
    bkt(1,1,0);
    g<<setprecision(6)<<r/x;
    return 0;
}