#include <fstream>
#include <iomanip>
using namespace std;

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

int n, k, nr, st[30];
double p[30], s;
long long f;

int validare (int niv)
{
    int i;
    for (i=1; i<niv; i++)
    {
        if (st[i]==st[niv])
            return 0;
    }
    return 1;
}

void bck (int niv, double prod)
{
    int i;
    for (i=st[niv-1]+1; i<=n; i++)
    {
        st[niv]=i;
        if (validare(niv)==1)
        {
            if (niv==k)
            {
                s=s+prod*p[st[niv]];
                nr++;
            }
            else
                bck (niv+1, prod*p[st[niv]]);
        }
    }
}
int main()
{
    int i;
    fin>>n>>k;

    for (i=1; i<=n; i++)
        fin>>p[i];

    bck (1, 1);

    f=1;
    for (i=1; i<=k; i++)
        f=f*i;

    fout<<fixed<<setprecision(6)<<(s/(nr*f))*f;

    fin.close();
    fout.close();
    return 0;
}