#include <cstdio>

double factorial(int n) {
  double rez;
  rez = 1.0f;
  for(int i = 2; i <= n; ++i)
    rez = rez * i;
  return rez;
}

const int MAX_N = 25;
double rez, v[MAX_N];
int ramas[MAX_N];

inline void swap(int &a, int &b) {
  int aux;
  aux = a;
  a = b;
  b = aux;
}

void bkt(int n, int k, double prod, int first) {
  if(k == 0)
    rez = rez + prod;
  else {
    for(int j = first; j <= n - k; ++j) {
      bkt(n, k - 1, prod * v[j], j + 1);
    }
  }
}

int main() {
  int n, k;
  double comb;
  FILE *fin = fopen("dezastru.in", "r");
  fscanf(fin, "%d%d", &n, &k);
  for(int i = 0; i < n; ++i) {
    fscanf(fin, "%lf", &v[i]);
    ramas[i] = i;
  }
  fclose(fin);

  comb = factorial(n) / factorial(k) / factorial(n - k);
  bkt(n, k, 1.0f / comb, 0);

  FILE *fout = fopen("dezastru.out", "w");
  fprintf(fout, "%lf", rez);
  fclose(fout);
  return 0;
}