#include <fstream>
#include <iomanip>
using namespace std;
ifstream f("dezastru.in");
ofstream g("dezastru.out");
int n,m,sol[26];
float a[26],p,p1,s=0;
void load()
{
    f>>n>>m;
    for (int i=1; i<=n; i++) f>>a[i];
    p=1;
    for (int i=2; i<=n; i++) p*=i;
}
void dload()
{   p1=1;
    for(int i=1;i<=m;i++) p1*=a[sol[i]];
    s+=p1/p;
}
void back(int k)
{
    if (k>m) dload();
    else for (int i=sol[k-1]+1; i<=n; i++)
        {
            sol[k]=i;
            back(k+1);
        }
}
int main()
{
    load(),back(1),g<<setprecision(6)<<fixed<<2*s;
    return 0;
}