program permutacio;

const
  maxhossz=25;

type
  index = 0..maxhossz;

var
  n,i,k,hany:byte;
  c: array[index] of byte;
  v: array[index] of real;
  meg_szabad: array[index] of boolean;
  be,ki:text;
  s:double;

 procedure kiiras;
 var
  i:index;
  x:real;
 begin
  x:=1;
  for i:=1 to k do
    x:=x*v[c[i]];
  s:=s+x;
  inc(hany);
 end;

 procedure permutacio(i: index);
 var
  j:index;
 begin
  for j:=1 to n do
   if meg_szabad[j] then
      begin
       meg_szabad[j]:=false;
       c[i]:=j;
       if i<n then
            permutacio(i+1)
           else
            kiiras;
       meg_szabad[j]:=true;
      end;
 end;


begin
 s:=0;
 hany:=0;
 assign(be,'dezastru.in');
 assign(ki,'dezastru.out');
 rewrite(ki);
 reset(be);
 readln(be,n,k);
 for i:=1 to n do
   begin
    read(be,v[i]);
    meg_szabad[i]:=true;
   end;
 permutacio(1);
 s:=s/hany;
 writeln(ki,s:1:6);
 close(ki);
end.