#include <iostream>
#include <fstream>
using namespace std;
ifstream fin("dezastru.in");
ofstream fout("dezastru.out");
int n,k,nr,fol[100],vec[100];
double a[100],p[10000],S;
void bk(int i){
    if(i>k)
    {
        nr++;
        p[nr]=1;
        for(int j=1;j<=k;j++)
        {
            p[nr]=p[nr]*a[vec[j]] ;
        }
        return;
    }
    for(int j=1;j<=n;j++)
    {
        if(fol[j]==0)
        {
            vec[i]=j;
            fol[j]=1;
            bk(i+1);
            fol[j]=0;
        }
    }
}
int main()
{
    //(づ°ω°)づ (づ°ω°)づ (づ°ω°)づ
    fin>>n>>k;
    for(int i=1;i<=n;i++)
        {
        fin>>a[i];

        }
    bk(1);
    for(int i=1;i<=nr;i++)
        S=S+p[i]/nr;
    fout<<S<<"\n";
    //(づ°ω°)づ (づ°ω°)づ (づ°ω°)づ
    return 0;
}