#include <iostream>
#include <fstream>
#include <iomanip>
using namespace std;
ifstream f("dezastru.in");
ofstream g("dezastru.out");
float v[30];
float a[30][30];
int n,k;
float s;

void citire()
{
    f>>n>>k;
    for(int i=1; i<=n; i++)
        f>>v[i];
}

int fact()
{
    int i;
    float s=1;
    for(i=k+1; i<=n; i++)
        s=s*i;
    for(i=2; i<=n-k; i++)
        s=s/i;
    return s;
}

void bordare()
{
    for(int i=0; i<=n; i++)
        a[i][0]=1;
}

void prelucrare()
{
    for(int i=1; i<=n; i++)
        for(int j=1; j<=i; j++)
            a[i][j]=a[i-1][j]+(a[i-1][j-1]*v[i]);
}

int main()
{
    citire();
    bordare();
    prelucrare();
    g<<setprecision(6)<<a[n][k]/fact();
}