题意：初始有 \(n\) 个人，每个人的权值是 \(w_i\)，假设这一轮剩余还没嘎掉的人总权值是 \(s\)，那么这一轮它有 \(\frac{w_i}{s}\) 的概率嘎掉。求 \(1\) 活到最后的概率是多少。
考虑算最后一次嘎的概率很难算，但是很容易算第一次嘎的概率。所以就容斥，枚举一个集合 \(S\)，钦定这个集合 \(S\) 的人不满足在 \(1\) 后面嘎，其余人无所谓没有限制，那么就只看 \(S\) 这个集合里面 \(1\) 第一次嘎掉的概率，此时对答案的贡献就是：
\[(-1)^{|S|}\frac{w_1}{\left(\sum_{i\in S}w_i\right)+w_1} \]现在是固定 \(S\)（或者说，枚举 \(S\)），然后考虑转为固定其它东西，那就固定 \(\sum_{i\in S}w_i\)，那么要计算的就是 \((-1)^{|S|}\) 的总和。
每个人的 OGF 是 \((1-z^{w_i})\)，分治 + NTT 乘起来就行了。
代码
#include<cstdio>
#include<vector>
#include<queue>
#include<cstring>
#include<iostream>
#include<algorithm>
#include<ctime>
#include<random>
#include<assert.h>
#define pb emplace_back
#define mp make_pair
#define fi first
#define se second
#define dbg(x) cerr<<"In Line "<< __LINE__<<" the "<<#x<<" = "<<x<<'\n';
#define dpi(x,y) cerr<<"In Line "<<__LINE__<<" the "<<#x<<" = "<<x<<" ; "<<"the "<<#y<<" = "<<y<<'\n';
using namespace std;
typedef long long ll;
typedef unsigned long long ull;
typedef pair<int,int>pii;
typedef pair<ll,int>pli;
typedef pair<ll,ll>pll;
typedef pair<int,ll>pil;
typedef vector<int>vi;
typedef vector<ll>vll;
typedef vector<pii>vpii;
typedef vector<pil>vpil;
template<typename T>T cmax(T &x, T y){return x=x>y?x:y;}
template<typename T>T cmin(T &x, T y){return x=x<y?x:y;}
template<typename T>
T &read(T &r){
r=0;bool w=0;char ch=getchar();
while(ch<'0'||ch>'9')w=ch=='-'?1:0,ch=getchar();
while(ch>='0'&&ch<='9')r=r*10+(ch^48),ch=getchar();
return r=w?-r:r;
}
template<typename T1,typename... T2>
void read(T1 &x,T2& ...y){read(x);read(y...);}
const int mod=998244353;
inline void cadd(int &x,int y){x=(x+y>=mod)?(x+y-mod):(x+y);}
inline void cdel(int &x,int y){x=(x-y<0)?(x-y+mod):(x-y);}
inline int add(int x,int y){return (x+y>=mod)?(x+y-mod):(x+y);}
inline int del(int x,int y){return (x-y<0)?(x-y+mod):(x-y);}
int qpow(int x,int y){
int s=1;
while(y){
if(y&1)s=1ll*s*x%mod;
x=1ll*x*x%mod;
y>>=1;
}
return s;
}
namespace MyPoly
{
const int T=17;//2^T>n+m
int inv[(1<<T)+10],fac[(1<<T)+10];
int w[T][(1<<(T-1))+10],iw[T][(1<<(T-1))+10];
void prework(){
fac[0]=1;
for(int i=1;i<=(1<<T);i++)fac[i]=1ll*fac[i-1]*i%mod;
inv[1<<T]=qpow(fac[1<<T],mod-2);
for(int i=(1<<T)-1;~i;--i)inv[i]=1ll*inv[i+1]*(i+1)%mod;
for(int i=0;i<T;i++){
int n=1<<(i+1);
int W=qpow(3,(mod-1)/n);
int IW=qpow(332748118,(mod-1)/n);
w[i][0]=1;
iw[i][0]=1;
for(int j=1;j<n/2;j++)w[i][j]=1ll*w[i][j-1]*W%mod,iw[i][j]=1ll*iw[i][j-1]*IW%mod;
}
}
struct Poly{
vi a;
Poly(){vi().swap(a);}
int size(){return a.size();}
void resize(int x){a.resize(x);}
int &operator[](int i){return a[i];}
};
void DFT(Poly &a){ //转置
int n=a.size();
int p=__builtin_ctz(n);
for(int i=n/2;i;i>>=1){
--p;
for(int j=0;j<n;j+=i<<1){
for(int k=0;k<i;++k){
int u=a[j+k],v=a[j+i+k];
a[j+k]=add(u,v);
a[j+i+k]=del(1ll*u*w[p][k]%mod,1ll*v*w[p][k]%mod);
}
}
}
}
void IDFT(Poly &a){
int n=a.size();
int p=-1;
for(int i=1;i<n;i<<=1){
++p;
for(int j=0;j<n;j+=i<<1){
for(int k=0;k<i;++k){
int v=1ll*a[j+i+k]*iw[p][k]%mod;
a[j+i+k]=del(a[j+k],v);
cadd(a[j+k],v);
}
}
}
int iv=qpow(n,mod-2);
for(int i=0;i<n;i++)
a[i]=1ll*a[i]*iv%mod;
}
Poly operator*(Poly &f,Poly &g){
int n=f.size(),m=g.size();
if (1ll*n*m<=1000){
Poly h;
h.resize(n+m-1);
for(int i=0;i<n;i++)
if(f[i])
for(int j=0;j<m;j++)
if(g[j])
cadd(h[i+j],1ll*f[i]*g[j]%mod);
return h;
}
int len=1,ct=0;
while(len<=n+m)len<<=1,++ct;
f.resize(len);
g.resize(len);
DFT(f);
DFT(g);
for(int i=0;i<len;i++)
f[i]=1ll*f[i]*g[i]%mod;
IDFT(f);
f.resize(n+m-1);
return f;
}
}
using namespace MyPoly;
const int N=100010;
int n,a[N];
Poly solve(int l,int r){
if(l==r){
Poly f;f.resize(a[l]+1);
f[0]=1;f[a[l]]=mod-1;
return f;
}
int mid=(l+r)>>1;
Poly f=solve(l,mid),g=solve(mid+1,r);
return f*g;
}
signed main(){
prework();
read(n);
int s=0;
for(int i=1;i<=n;i++)s+=read(a[i]);
Poly f=solve(2,n);
int ans=0,len=f.a.size();
for(int i=0;i<len;i++)
cadd(ans,1ll*f[i]*a[1]%mod*inv[i+a[1]]%mod*fac[i+a[1]-1]%mod);
cout << ans << '\n';
return 0;
}