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

double v[27], rez, a[27][27], fact[27], nr;
int n, k;

int main()
{
    f >> n >> k;
    a[0][0] = 1;
    for (int i = 1; i <= n; i++)
    {
        f >> v[i];
        a[i][0] = 1;
    }
    fact[0] = 1;
    for (int i = 1; i <= n; i++)
        fact[i] = fact[i - 1] * i;
    for (int i = 1; i <= n; i++)
        for (int j = 1; j <= k; j++)
            a[i][j] = a[i - 1][j] + a[i - 1][j - 1] * v[i];
    nr = fact[n] / fact[k] / fact[n - k];
    rez = a[n][k];
    g << rez / nr;
    return 0;
}