n,k=gets.split.map &:to_i
a=gets.split.map &:to_r
if n==k
  puts 1r
  exit
end
x=[[0r,0r]]
1.upto(n-2){|i|
  s=a[i-1]+a[i+1]
  l=a[i-1]/s
  r=a[i+1]/s
  b=1-l*x[-1][1]
  x<<[l*x[-1][0]/b,r/b]
}
y=[p]*n
y[n-1]=1r
(n-2).downto(0){|i|
  y[i]=x[i][0]+x[i][1]*y[i+1]
}
ans=y[k-1]
if ans==0r
  puts 0
else
  puts ans
end