#include <fstream>
#include <iomanip>

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

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

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

void scrie()
{
    g << setprecision(6) << sol / nrf << "\n";
}

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