#pragma GCC optimize("Ofast")
#pragma GCC optimize("unroll-loops")
#include <bits/stdc++.h>
using namespace std;
using ll = long long;
const ll mod = 1e9 + 7;
const ll mod2 = 998244353;
ll gcd(ll a, ll b) {
return b ? gcd(b, a % b) : a;
}
ll pow(ll a, ll b) {
ll ans = 1;
while (b) {
if (b & 1) ans *= a;
b >>= 1;
a *= a;
}
return ans;
}
ll pow(ll a, ll b, ll c) {
ll ans = 1;
while (b) {
if (b & 1) ans = (ans * a) % c;
b >>= 1;
a = (a * a) % c;
}
return ans;
}
void check(bool b) {
if (b)
cout << "Yes\n";
else
cout << "No\n";
}
using ld = long double;
int main() {
ios_base::sync_with_stdio(false);
cin.tie(nullptr);
cout.tie(nullptr);
ll n,k;cin>>n>>k;
vector<ll>prob(n);
for (int i = 0; i < n; ++i) {
cin>>prob[i];
}
vector<vector<ld>>x(n,vector<ld>(k+1));
auto x_=x;
for (int i = 0; i < n; ++i) {
ld x1;
x1=prob[i];x1/=100;
x[i][0]=1;
for (int j = 0; j < k; ++j) {
x[i][j+1]=x[i][j]*x1;
}
x1=1-x1;
x_[i][0]=1;
for (int j = 0; j < k; ++j) {
x_[i][j+1]=x_[i][j]*x1;
}
}
vector<vector<ld>>dp(k+1,vector<ld>(k+1,-1));vector<vector<ll>>vis(k+1,vector<ll>(k+1,0));
for (int i=0;i<=k;++i)dp[k][i]=1,vis[k][i]=1;
function<ld(ll,ll)>solve = [&](ll i, ll j)->ld{
if (vis[i][j]==0){
vis[i][j]=1;
ld t = 0;
for (int l = 0; l < n; ++l) {
t+=x[l][j]*x_[l][i-j];
}
vector<ld>new_prob(n);
for (int l = 0; l < n; ++l) {
new_prob[l]=x[l][j]*x_[l][i-j]/t;
}
t=0;
for (int l = 0; l < n; ++l) {
t+=new_prob[l]*(x[l][1]*solve(i+1,j+1)+x_[l][1]*solve(i+1,j));
}
dp[i][j]=max(dp[i][j],t);
t=0;
for (int l = 0; l < n; ++l) {
t+=2*new_prob[l]*(x[l][1]*solve(i+1,j+1));
}
dp[i][j]=max(dp[i][j],t);
}
return dp[i][j];
};
cout<<fixed<<setprecision(9)<<1000*solve(0,0)-1000;
return 0;
}
I3ByYWdtYSBHQ0Mgb3B0aW1pemUoIk9mYXN0IikKI3ByYWdtYSBHQ0Mgb3B0aW1pemUoInVucm9sbC1sb29wcyIpCgojaW5jbHVkZSA8Yml0cy9zdGRjKysuaD4KCnVzaW5nIG5hbWVzcGFjZSBzdGQ7CnVzaW5nIGxsID0gbG9uZyBsb25nOwoKY29uc3QgbGwgbW9kID0gMWU5ICsgNzsKY29uc3QgbGwgbW9kMiA9IDk5ODI0NDM1MzsKCmxsIGdjZChsbCBhLCBsbCBiKSB7CiAgICByZXR1cm4gYiA/IGdjZChiLCBhICUgYikgOiBhOwp9CgpsbCBwb3cobGwgYSwgbGwgYikgewogICAgbGwgYW5zID0gMTsKICAgIHdoaWxlIChiKSB7CiAgICAgICAgaWYgKGIgJiAxKSBhbnMgKj0gYTsKICAgICAgICBiID4+PSAxOwogICAgICAgIGEgKj0gYTsKICAgIH0KICAgIHJldHVybiBhbnM7Cn0KCmxsIHBvdyhsbCBhLCBsbCBiLCBsbCBjKSB7CiAgICBsbCBhbnMgPSAxOwogICAgd2hpbGUgKGIpIHsKICAgICAgICBpZiAoYiAmIDEpIGFucyA9IChhbnMgKiBhKSAlIGM7CiAgICAgICAgYiA+Pj0gMTsKICAgICAgICBhID0gKGEgKiBhKSAlIGM7CiAgICB9CiAgICByZXR1cm4gYW5zOwp9Cgp2b2lkIGNoZWNrKGJvb2wgYikgewogICAgaWYgKGIpCiAgICAgICAgY291dCA8PCAiWWVzXG4iOwogICAgZWxzZQogICAgICAgIGNvdXQgPDwgIk5vXG4iOwp9Cgp1c2luZyBsZCA9IGxvbmcgZG91YmxlOwoKaW50IG1haW4oKSB7CiAgICBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKGZhbHNlKTsKICAgIGNpbi50aWUobnVsbHB0cik7CiAgICBjb3V0LnRpZShudWxscHRyKTsKICAgIGxsIG4saztjaW4+Pm4+Pms7CiAgICB2ZWN0b3I8bGw+cHJvYihuKTsKICAgIGZvciAoaW50IGkgPSAwOyBpIDwgbjsgKytpKSB7CiAgICAgICAgY2luPj5wcm9iW2ldOwogICAgfQogICAgdmVjdG9yPHZlY3RvcjxsZD4+eChuLHZlY3RvcjxsZD4oaysxKSk7CiAgICBhdXRvIHhfPXg7CiAgICBmb3IgKGludCBpID0gMDsgaSA8IG47ICsraSkgewogICAgICAgIGxkIHgxOwogICAgICAgIHgxPXByb2JbaV07eDEvPTEwMDsKICAgICAgICB4W2ldWzBdPTE7CiAgICAgICAgZm9yIChpbnQgaiA9IDA7IGogPCBrOyArK2opIHsKICAgICAgICAgICAgeFtpXVtqKzFdPXhbaV1bal0qeDE7CiAgICAgICAgfQogICAgICAgIHgxPTEteDE7CiAgICAgICAgeF9baV1bMF09MTsKICAgICAgICBmb3IgKGludCBqID0gMDsgaiA8IGs7ICsraikgewogICAgICAgICAgICB4X1tpXVtqKzFdPXhfW2ldW2pdKngxOwogICAgICAgIH0KICAgIH0KICAgIHZlY3Rvcjx2ZWN0b3I8bGQ+PmRwKGsrMSx2ZWN0b3I8bGQ+KGsrMSwtMSkpO3ZlY3Rvcjx2ZWN0b3I8bGw+PnZpcyhrKzEsdmVjdG9yPGxsPihrKzEsMCkpOwogICAgZm9yIChpbnQgaT0wO2k8PWs7KytpKWRwW2tdW2ldPTEsdmlzW2tdW2ldPTE7CiAgICBmdW5jdGlvbjxsZChsbCxsbCk+c29sdmUgPSBbJl0obGwgaSwgbGwgaiktPmxkewogICAgICAgIGlmICh2aXNbaV1bal09PTApewp2aXNbaV1bal09MTsKICAgICAgICAgICAgbGQgdCA9IDA7CiAgICAgICAgICAgIGZvciAoaW50IGwgPSAwOyBsIDwgbjsgKytsKSB7CiAgICAgICAgICAgICAgICB0Kz14W2xdW2pdKnhfW2xdW2ktal07CiAgICAgICAgICAgIH0KICAgICAgICAgICAgdmVjdG9yPGxkPm5ld19wcm9iKG4pOwogICAgICAgICAgICBmb3IgKGludCBsID0gMDsgbCA8IG47ICsrbCkgewogICAgICAgICAgICAgICAgbmV3X3Byb2JbbF09eFtsXVtqXSp4X1tsXVtpLWpdL3Q7CiAgICAgICAgICAgIH0KICAgICAgICAgICAgdD0wOwogICAgICAgICAgICBmb3IgKGludCBsID0gMDsgbCA8IG47ICsrbCkgewogICAgICAgICAgICAgICAgdCs9bmV3X3Byb2JbbF0qKHhbbF1bMV0qc29sdmUoaSsxLGorMSkreF9bbF1bMV0qc29sdmUoaSsxLGopKTsKICAgICAgICAgICAgfQogICAgICAgICAgICBkcFtpXVtqXT1tYXgoZHBbaV1bal0sdCk7CiAgICAgICAgICAgIHQ9MDsKICAgICAgICAgICAgZm9yIChpbnQgbCA9IDA7IGwgPCBuOyArK2wpIHsKICAgICAgICAgICAgICAgIHQrPTIqbmV3X3Byb2JbbF0qKHhbbF1bMV0qc29sdmUoaSsxLGorMSkpOwogICAgICAgICAgICB9CiAgICAgICAgICAgIGRwW2ldW2pdPW1heChkcFtpXVtqXSx0KTsKICAgICAgICB9CiAgICAgICAgcmV0dXJuIGRwW2ldW2pdOwogICAgfTsKICAgIGNvdXQ8PGZpeGVkPDxzZXRwcmVjaXNpb24oOSk8PDEwMDAqc29sdmUoMCwwKS0xMDAwOwogICAgcmV0dXJuIDA7Cn0=