#include <fstream>
#include <iostream>
#include <iomanip>

using namespace std;

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

double a[32], avg;
int n, k, i;
long long nr;

inline void bkt(int last, int x, double s) {
    int i;
    if (x == k+1) {
        nr++;
        avg += s;
        return;
    }
    for (i = last+1; i <= n-(k-x); i++)
        bkt(i, x+1, s*a[i]);
}

int main() {
    f >> n >> k;

    for (i = 1; i <= n; i++)
        f >> a[i];

    bkt(0, 1, 1);
    g << fixed << setprecision(6) << avg/nr;
}