#include <fstream>
#include <iomanip>

using namespace std;
ifstream f("dezastru.in");
ofstream g("dezastru.out");

double sol = 0, v[30], st[30];
int n, m, nrf = 0;
void citeste()
{
    int i;
    f >> n >> m;
    for ( i = 1 ; i <= n ; i++)
    f >> v[i];
}

void bkt(int k, int s, double sum)
{
    int i;
    if (k > m)
    {
        sol += sum;
        nrf++;
        return;
    }
    for (  i = s + 1 ; i <= n - m + k ; i++ )
    {
        bkt(k + 1, i, sum*v[i]);
    }
}

void scrie()
{
    g << fixed << setprecision(6) << sol / nrf;
}

int main()
{
    citeste();
    bkt( 1, 0, 1);
    scrie();
    return 0;
}