#include <iostream>
#include <fstream>
#include <iomanip>

using namespace std;

ifstream fin("dezastru.in");
ofstream fout("dezastru.out");

int n,k,nr;
float v[30],S;

void Solve(int a, int b, float sol)
{
    if (a==k)
    {
        ++nr;
        S+=sol;
        return;
    }
    for (int i=b+1; i<=n+a-k+1; ++i)
        Solve(a+1,i,sol*v[i]);
}

int main()
{
    fin>>n>>k;
    for (int i=1; i<=n; ++i)
        fin>>v[i];
    Solve(0,0,1);
    fout<<fixed<<setprecision(6)<<S/nr;
    return 0;
}