Cod sursa(job #3292078)

Utilizator amunnumeVlad Patrascu amunnume Data 7 aprilie 2025 08:20:17
Problema Dezastru Scor 50
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.71 kb
#include <bits/stdc++.h>
using namespace std;
ifstream fin("dezastru.in");
ofstream fout("dezastru.out");
const int N=30;
int n,q,i,j,st[N];
bool f[N];
__int128 fact[N];
double v[N],p=1,t;
bool verif(int k)
{
    return (!f[st[k]]);
}
void add()
{
    t+=p*fact[n-q]/fact[n];
}
void bac(int k)
{
    for(int i=1;i<=n;++i)
    {
        st[k]=i;
        p*=v[i];
        if(verif(k))
        {
            f[i]=1;
            if(k==q) add();
            else bac(k+1);
            f[i]=0;
        }
        p/=v[i];
    }
}
int main()
{
    fin>>n>>q; fact[0]=1;
    for(i=1;i<=n;++i)
    {
        fact[i]=fact[i-1]*i;
        fin>>v[i];
    }
    bac(1);
    fout<<t;
    return 0;
}