#include <fstream>
#include <iomanip>
#include <cmath>
using namespace std;
ifstream f("dezastru.in");
ofstream g("dezastru.out");

long double p[30], sol;
int st[30], used[30], N, K;
long double nr=1;

void calcprob()
{
    double prob=1.0;
    for (int i=1; i<=K; ++i)
        prob*=p[st[i]];
    sol+=prob;
}

void back(int vf)
{
    if (vf>K) calcprob();
    else
    {
        for (int i=1; i<=N; ++i)
            if (!used[i])
            {
                st[vf]=i; used[i]=1;
                back(vf+1);
                used[i]=0;
            }
    }
}

int main()
{
    f>>N>>K;
    for (int i=1; i<=N; ++i)
        f>>p[i], nr*=(long double)i;

    back(1);
    sol/=nr;
    g<<fixed<<setprecision(6)<<fabs(sol)<<'\n';
    return 0;
}