#include <cstdio>

#define maxn 26

FILE *in = fopen("dezastru.in","r"), *out = fopen("dezastru.out","w");

int n, k;
double nr[maxn];
double rez = 0.0;
int st[maxn];
int perm;
double inm = 1.0;

void read_init()
{
    fscanf(in, "%d %d", &n, &k);

    for ( int i = 1; i <= n; ++i )
        fscanf(in, "%lf", &nr[i]);
}

void back(int p)
{
    for ( int i = st[p-1]+1; i <= n; ++i )
    {
        st[p] = i;
        if ( p == k )
        {
            for ( int j = 1; j <= k; ++j )
                inm *= nr[st[j]];
            rez += (double)inm/perm;
            inm = 1.0;
        }
        else
            back(p+1);
    }
}

long long fact(int n)
{
    long long rez = 1;

    for ( int i = 2; i <= n; ++i )
        rez *= i;

    return rez;
}

int main()
{
    read_init();
    perm = fact(n);
    back(1);

    fprintf(out, "%.6lf\n", rez*fact(k));

}