PMTD

设当前的最大值为 ，最小值为 。为了让极差变大，我们显然是只操作这两个数。并且一定是让 变大， 变小。

所以我们只可能进行这四个操作：

  1. 。
  2. 。
  3. 。
  4. 。

下面我们就来考虑那种操作对答案的贡献更大：

设一次操作对答案的贡献为 。

那么这四种操作的贡献分别为：

  1. 。
  2. 。
  3. 。
  4. 。

显然有 。所以操作 不可能进行。也就意味着如果我们改变最小值，每次操作最多将答案 。而如果改变最大值，每次操作至少可以让答案 。所以我们只要操作最大值就可以了。

下面我们考虑如何选取 和 操作。

不难发现，当 时，进行 操作更优。当 时，两种操作效果一样。当 时，进行 操作更优。

并且当进行一次 操作后必然有 。

所以我们只需要记录初始序列的最大值和最小值，如果最大值小于 ，就先将其 ，然后不断的对最大值进行 操作即可。

下面是 ：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#include<cstdio>
int n,val,mx,mn=1e9,m;
int main()
{
	scanf("%d%d",&n,&m);
	while(n--)
	{
		scanf("%d",&val);
		if(val>mx)mx=val;
		if(val<mn)mn=val;
	}
	if(mx<2)mx+=2,m--;
	printf("%lld",((1ll*mx)<<m)-mn);
	return 0;
}

Number

先考虑如何分配使乘积最大。

最优构造：按照从9到1的顺序将每个数字依次加入a,b两个数中，每次将当前数加入到小的那个数中就能的到最优解。

首先有个很显然的结论，对于最后的两个数

有几个引理：

  1. 最终的两个数内部必然是按 的顺序排列。

    这个很显然不加证明，能得到结论 必然在两数的末尾。

    所以为了方便我们可以先不考虑 。

  2. 在只考虑 时，两数的长度差不会超过 。

    考虑用反证法：

    记最终结果两数为 有 。考虑将a末尾的 加到 后面，则有 。

    。

    所以 。

    与 最优矛盾，所以长度差不可能超过 。

    所以当总个数是偶数时最终两数等长，奇数时两数长度差 （不考虑 ）。

    那么当总个数是奇数时，我们不妨取一个 出来，使总数变成偶数。

  3. 对于某一数字 ，其在两数中出现的最高位最多差一位，最低为也最多差一位。

    由 不妨将总数设为 。

    用反证法证明：

    不妨设 在两数 中出现的最高位为 。

    记 表示数 从第为往高位数第 位的数字（从 开始）。

    由 可知 。

    考虑将 和 交换。

    则

    。

    因为 。

    所以 。

    与 最优矛盾。

    所以位数不会差超过 位。

    最低位同理不多赘述。

  4. 如果 ，有唯一 使得 。

    考虑反正法，如果存在 。那么将 交换。

    因为 。

    所以 。

    所以 。

    与 最优矛盾。

下面就按照上述四个要求构造即可。

最终结果即为开头给出的构造。

接下来考虑让某一数字的个数不同。

因为 所以一定有一个数的末尾是 。

所以我们只需将这个数除以 ，将另一个数乘 即可。

因为首位必定是 乘 必然产生进位，除以 必然不会退位，所以这么操作之后总位数会多 ，则必有一个数字的个数与给出的个数不同。

当然除以 也行。甚至你可以将两个数卷起来。

并且由于两数形如 。

可以将连续的 看作 。

然后甚至可以手动把括号拆开。

Build

不难发现，每个小镇花费的价钱只与该小镇建了多少条公路有关，与和哪个小镇建的无关。而每个小镇修建的条数就是最后生成的途中该点的度数，记为 。

所以我们不妨从每个小镇的角度进行求解。将每个小镇修建下一条公路的代价排序后取最小值。显然修建 条道路，即 。所以只需取 次最小值即可。

上述过程可以用堆维护。

但是还没结束，还要满足图连通和没有自环两个条件。

图连通的一个显然的必要条件是 。

无自环的一个显然的必要条件是 。

下面给出构造方案以证明充分性：

我们只需不断的将当前度数最小值的点连向度数最大值的点即可。

证明连通性

考虑当当前的度数最小值是 时，连了这条边之后它将无法再和其它点连边。但是连了这条边之后，它将和当前的度数最大的点连通。

而之前和它连通的点（可能没有），也会间接的和剩下的点连通。

也就是说每个度数变为 的点都会直接或间接的和当前剩下的度数不为 的点连通。

所以最终这 个点会连通。

证明无自环

考虑用反证法，假设最终会产生自环，即 。而由于总度数是偶数，每次连边也会使总度数减 。所以 且 。

会有两种情况：

  1. 一直是最大值，那么意味着一直是将 与其他点连边，即 ，这与上面要求的 矛盾。

  2. 存在 ，满足在最开始时 。那么当 减到 时，根据上述过程不难发现，在此之后会满足 。而根据假设此时 。产生矛盾。

所以假设不成立，即最后不会产生自环。

时间复杂度

示例代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
#define pli pair<ll,int>
const int N = 2e5 + 10;
int n, m, du;
ll ans;
struct P{
	int id, a, b, c, cnt;
	inline void rd(int i){id = i, cin >> a >> b >> c;}
	inline ll get(){cnt++; return (1ll * a * cnt + b) * cnt + c;}
} v[N];
priority_queue<pli, vector<pli>, greater<pli>> q;
pli now;
inline bool cmp(P x, P y){return x.cnt > y.cnt;}
int main()
{
	ios::sync_with_stdio(false);
	cin >> n >> m, du = m << 1;
	for(int i = 1; i <= n; ++i) v[i].rd(i);
	
	for(int i = 1; i <= n; ++i) ans += v[i].get();
	du -= n;
	
	for(int i = 1; i <= n; ++i) q.push(make_pair(v[i].get(), i));
	
	while(du--)
	{
		now = q.top(), q.pop();
		ans += now.first;
		if(v[now.second].cnt == m){v[now.second].cnt++;continue;}
		q.push(make_pair(v[now.second].get(), now.second));		
	}
	for(int i = 1; i <= n; i++) v[i].cnt--; 
	
	cout<<ans<<'\n';
	
	sort(v + 1, v + n  + 1, cmp);
	int l = 1, r = n;
	while(v[r].cnt == 0) r--;
	while(l < r)
	{
		if(v[1].cnt == 1)break;
		cout<<v[r].id<<' '<<v[l].id<<'\n';
		v[r].cnt--, v[l].cnt--;
		l++;
		if(v[l].cnt <= v[1].cnt && v[1].cnt) l = 1;
		if(!v[r].cnt) r--;
		if(l == r && v[l].cnt)swap(v[l], v[1]), l = 1;
	}
	if(v[1].cnt)
	{
		for(int i = 2; i <= n; i++)
			if(v[i].cnt)
			{
				cout<<v[i].id<<' '<<v[i-1].id<<"\n";
				v[i].cnt--, v[i-1].cnt--;
			}
	}
	return 0;
}

赛时选手提供的爆标思路

同样只考虑每个点的度数，显然会有一个最大值，我们不妨直接二分这个最大值。然后可以用二次函数求根公式快速计算每个点选了多少次。然后判断总度数是否达到 且每个点度数仍符合上述条件即可。复杂度可以做到 。

Mole

subtask1

纯暴力

subtask2

考虑 ， 表示在第 位置，前面的 个数取了 次的答案。

。

subtask3

考虑在 秒的基础上得到 秒的答案。

显然， 的最优取法，必然包括 的取法。

我们有如下两种方式：

  1. 如果在 中取最优，那么直接在第 秒取它即可，对前 秒的取法没有影响故仍取最优解最优。

  2. 将 秒的情况后面一段推迟一秒取，即将原本第 取的数放到第 秒取。这样我们就可以在前面某一个位置多取一个数。不妨令后移的左端点为 ，显然 会有一个最小值的限制，即无法从很早的位置进行后移。但在这种情况下，假设我们取了 (所有能取的数中最大的一个) 并将原本在 后面的数全部推迟一秒取。那么有 小于其后面所有数。不然在第 秒时，我们就可以将 后面小于它的一个数不取，用 来代替那个数更优，这与当前取的数是 秒时的最优解矛盾。

，

full task

考虑优化检验到

考虑基于前一次推。
对于每一轮检验，设 为窗口右端到序列右端取的总次数（后缀和）， 为窗口右端到 至窗口离开序列的时间。

对于一种可行方案，当且仅当

充分性证明(口胡)：
假设
则在窗口离开之后 中必定有数没取，不合法。

必要性证明(口胡)：
，
当其不大于 并且方案不合法的时候，必定存在。

考虑 的性质，
当 时，直接在 处扩展一位，即
（不存在要取的数时直接取走）
否则，，并在下一个位置插入一次取数（相当于顺延直到找到0）

使用线段树维护区间加，并查集或线段树二分维护某位置后面第一个零。

假设插入一个数之后 则无法插入，不合法。

维护存在性，设 。

线段树初始化为 ，更新时区间减一，维护区间最小值，判断是否为负数。

考虑任意时间，对当前情况下的时间加一，将最后一位新加入的加进堆，
将 的末 位加一（末 位可以向新的位置移动），在线段树中可以 。

由于每次加一处理完后都无法再次插入任何数，因此并查集维护的最后一个零其实就位于当前段末尾。

使用线段树和堆维护即可。

正常维护加一次取数即可，(时间轴上的每次移动最多取数一次)

和上面 subtask2 同理，中途被毙掉的数以后也不会选。

，

示例代码:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#define ls (rt<<1)
#define rs (rt<<1|1)
#define ll long long
#define pii pair<int,int>
#define m_p make_pair
const int N=1e6+10;
int n,m,a[N],cnt;
int mn[N<<2],lim,tp;
ll ans;
priority_queue<pii>q;
void upd(int rt){return tp=min(mn[ls],mn[rs]),mn[ls]-=tp,mn[rs]-=tp,mn[rt]+=tp,void();}
void change(int l,int r,int val)
{
	for(l+=lim-1,r+=lim+1;l^r^1;l>>=1,r>>=1,upd(l),upd(r))
		(~l&1)&&(mn[l^1]+=val),(r&1)&&(mn[r^1]+=val);
	for(;l^1;l>>=1)upd(l>>1);
	return;
}
int query(int l,int r)
{
	int la=0,ra=0;
	l+=lim,r+=lim;
	if(l^r)
		for(;l^r^1;l>>=1,r>>=1)
			la+=mn[l],ra+=mn[r],
			(~l&1)&&(la=min(la,mn[l^1])),
			(r&1)&&(ra=min(ra,mn[r^1]));
	int res=min(la+mn[l],ra+mn[r]);
	for(;l^1;)res+=mn[l>>=1];
	return res;
}
int main()
{
	m=read(),n=read();
	for(int i=1;i<=n;i++)a[i]=read();
	for(int i=1;i<m;i++)if(a[i]>0)q.push(m_p(a[i],i));
	for(lim=1;lim<n;lim<<=1); 
	for(int i=m;i<=n;i++)
	{
		if(a[i]>0)q.push(m_p(a[i],i));
		change(i-m+1,i,1);
		for(int l,r;q.size();)
		{
			l=q.top().second,q.pop(),r=i;
			if(query(l,r)==0)continue;
			change(l,r,-1),ans+=a[l],a[l]--;
			if(a[l])q.push(m_p(a[l],l));
			break;
		}
		writeL(ans,' ');
	}
	return 0;
}

Water

显然这道题可以分成两个部分来计算，总方案数和所有方案的时间总数。

先考虑总方案数：

对于同一连通块，如果没有分支（任意位置放水都会使这一层全填满，如下图），很显然其方案数就是深度 （可以不放）。

如果有分支，因为任意分支的方案不会互相影响，所以根据乘法原理不同分支的方案数直接乘起来即可，比如下图的方案数就应该是 。

显然是否有分支可以用并查集来维护，记 表示 所对应连通块的方案数，当两个分支合并时，显然大的连通块方案数即 。

由于水因重力会下沉，所以很自然的就应该从下往上处理。对于每一层先将同层的连通块合并，再考虑从下一层更新过来。

若果发现相邻两点在该层是连通块但下一层和该点未连通，则可认为下层是一个新的分支，将其方案数乘到当前连通块。

在和下一层合并完后，还需再加上将水放在该层的一种方案。

对于最终仍未不连通的连通块，其方案之间仍是互不干扰的则需全部乘起来。

时间复杂度为 。

到此方案数就求完了，下面考虑求总时间。

考虑求出每种时间的方案数，最后在乘上时间。

记每个点的深度为这个点到其所在的连通块中最靠近顶部的点的距离。

对于同一连通块，该块所需时间为该方案下所有水中最浅的水的深度。

而对于不同连通块，最终时间即为所有连通块中时间的最大值。

显然，对于某一深度求出答案并不是很容易，考虑容斥，如果已知前缀和，那么直接相减即为每一深度的答案。

那么如何来求前缀和，由于最终各块之间是取最大值，故只需知道各块之间方案的前缀和，相乘即可。

现在问题转化为求各连通块各深度方案数的前缀和。

类比求总方案数，由于总方案数是从下往上求的，故 就表示该连通块深度大于等于目前深度的方案数，

但考虑对于每个最终连通块，在每个深度可能有多个分支，需要将每个分支的深度都乘起来（可以对于每个连通块开一个 ，每个 的大小为该块最大深度 ）。

现在就得到了每个连通块的后缀和，前缀和只需用总和减去后缀和。

这个问题就解决了。

但万恶的出题人卡了空间有如下几种解决方式：

  1. 改成数组，并手动分配每一块的空间。

  2. 把只有一层的连通块忽略，这样连通块的个数最多为 。

  3. 并查集数组可以循环使用。

  4. 在预处理每个点的深度时用 并且对于每一行中连续的一段点只入队一次。

综上：时间复杂度为 、空间复杂度为 。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
const int N=5001,mod=998244353;
int n,m,ans1=1,cnt,sum[N],ans2,mul[N],mx,dep,fir[N*N/4],Tm[N*N/2],id[N*N],f[N<<1],fa[N<<1];
queue<int>q;
bool s[N][N];
#define get_id(x,y) (m*(x-1)+y)
inline int get(int x){return fa[x]==x?x:fa[x]=get(fa[x]);}
inline int bfs(int &i,int &j,int ct)
{
	int t=1,h=0,x=i,y=j,k,kk,*id_,*id__,dep_=ct,l,r,mx=0;
	q.push(i),Tm[0]=j;
	for(r=y,id_=id+get_id(i,j);s[x][r];++id_,++r)*id_=dep_;
	for(l=y,id_=id+get_id(i,j);s[x][l];--id_,--l)*id_=dep_;
	for(;h!=t;h++)
	{
		x=q.front(),q.pop(),y=Tm[h],mx=max(mx,x-i),dep_=ct+x-i;
		for(r=y;s[x][r];++r);
		for(l=y-1;s[x][l];--l);
		for(k=l+1,id_=id+get_id(x,k);k<r;++id_,++k)
		{
			if(s[x-1][k]&&*(id_-m)==-1)
			{
				q.push(x-1),Tm[t]=k,t++;
				for(id__=id_-m,kk=k;s[x-1][kk];--id__,--kk)*id__=dep_-1;
				for(id__=id_-m,kk=k;s[x-1][kk];++id__,++kk)*id__=dep_-1;
			}
			if(s[x+1][k]&&*(id_+m)==-1)
			{
				q.push(x+1),Tm[t]=k,t++;
				for(id__=id_+m,kk=k;s[x+1][kk];--id__,--kk)*id__=dep_+1;
				for(id__=id_+m,kk=k;s[x+1][kk];++id__,++kk)*id__=dep_+1;
			}
		}
	}
	if(mx==0)for(int k=l;k<=r;k++)s[x][k]=0;
	return mx;
}
inline int ksm(int x,int p)
{
	int res=1;
	for(;p;p>>=1,x=1ll*x*x%mod)if(p&1)res=1ll*x*res%mod;
	return res;
}
int main()
{
	n=read(),m=read();
	for(int i=1,opt;i<=n;i++)
	{
		for(opt=G();opt!='.'&&opt!='#';opt=G());
		for(int j=2;j<=m;j++)s[i][j]=G()-'#';
	}
	memset(id+1,-1,n*m*sizeof(int));
	
	//标记每个连通块的点并分配空间和去除深度为1的连通块 
	for(int i=1,*id_=id+1,now;i<=n;i++)
		for(int j=1;j<=m;++j,++id_)
			if(*id_==-1&&s[i][j])
				++cnt,now=bfs(i,j,fir[cnt]=fir[cnt-1]+dep+1),cnt-=(now==0),dep=now?now:dep;
	
	for(int i=fir[cnt]+dep;i>=1;--i)Tm[i]=1;
	fir[cnt+1]=fir[cnt]+dep+1;
	
	//统计总方案数和每一连通块的方案后缀和 
	for(int i=n-1;i>=1;i--)
	{
		for(int j=2;j<m;j++)fa[j]=(s[i][j-1]?fa[j-1]:j),f[j]=1;
		for(int j=2,fx,fy;j<m;j++)
			if(s[i][j]&&s[i+1][j]&&(fx=get(j))!=(fy=get(j+m)))
					f[fx]=1ll*f[fx]*f[fy]%mod,fa[fy]=fx;
		for(int j=2,*id_=id+get_id(i,j);j<m;++id_,++j)
			if(s[i][j]&&fa[j]==j)
				f[j]++,Tm[*id_]=1ll*Tm[*id_]*f[j]%mod;
		for(int j=2;j<m;j++)fa[j+m]=fa[j]+m;
		memcpy(f+m+1,f+1,sizeof(int)*m);
	}
	for(int i=0;i<=n;i++)sum[i]=mul[i]=1;
	
	//合并各个连通块的答案 
	for(int i=1,sm,sz,*T;i<=cnt;i++)
	{
		T=Tm+fir[i],sz=fir[i+1]-fir[i]-1,sm=*T;
		ans1=1ll*sm*ans1%mod,mx=max(mx,sz);
		mul[sz+1]=1ll*mul[sz+1]*sm%mod,sum[sz]=1ll*sum[sz]*sm%mod;
		for(int j=0;j<sz;j++)sum[j]=1ll*sum[j]*(sm+1-*(T+j+1))%mod;
	}
	for(int i=1;i<=mx;i++)mul[i]=1ll*mul[i]*mul[i-1]%mod,sum[i]=1ll*sum[i]*mul[i]%mod;
	for(int i=1;i<=mx;i++)ans2=(1ll*(sum[i]-sum[i-1])*i+ans2)%mod;
	printf("%lld",(1ll*ans2*ksm(ans1,mod-2)%mod+mod)%mod);
	return 0;
}

Competition

根据题意，积极性的期望就是每种方案的积极性 这种方案的概率。

形式化的，我们记 表示最终有 个人达到分数线的概率， 表示给 个人发奖品的方案数， 表示给 个人发奖品所有方案的积极性之和。

那么对于一种发给 个人奖品的方案其概率为 。

则最终期望 。

下面考虑分别求出 ，，。

：

显然可以 进行 。记 表示前 个人中有 个人达到分数线的概率。那么有 ，。

但这个复杂度显然不能接受。套路性的，我们考虑答案的生成函数 。而每个人的生成函数即为 。

则 。

普通分治乘法就可以解决这个问题。

：

有 的 ，记 表示用前 个 奖品发给 个人的方案数。

枚举第 个奖品用了多少个和发给多少人。

对于 类奖品有转移 为偶数。

对于 类奖品有转移 为奇数。

不难发现转移过程类似卷积，但不完全一样。套路的将组合数写成阶乘的形式。

即对于 类奖品有转移 为偶数为偶数。

不考虑 这个式子就可以用 优化了。

对于 类奖品也是一样的。复杂度 。

不难发现每次卷的多项式都是一样的。

对于 类，每个奖品的生成函数均为 。

即最终的结果即为 。

多项式快速幂 即可。

对于 类，每个奖品的生成函数为 。

而 由于常数项不为 ，有两种处理方式：

  1. 转化为 直接快速幂即可。

  2. 多项式幂函数（加强版）。

最后再将 ， 两类的方案数卷起来乘上 就可以得到 。

复杂度 。

：

做法及优化和求方案数一样，只需多乘一个价值。

对于 类，每种奖品价值的生成函数为 。

则 类的方案价值生成函数即为 。

将之前求过的方案数乘上 即可。

对于 类，每种奖品价值的生成函数为 。

这个东西显然不能用快速幂做。考虑其指数型生成函数 。

由 ，。

则 。

。

。

考虑将上述式子展开后，再将 泰勒展开回普通型生成函数。

为了方便处理，先将 提出来。

。

将 看成 。用分治乘法将其展开。得到一个形如 的多项式。

接下来就是将 泰勒展开。

即对于每个 ，求出 。

当 时，就是直接求自然数幂和（可参考calc加强版或[THUPC2017] 小 L 的计算题）。

对于任意情况：

同样考虑最终答案的生成函数 。

因为 。

所以 。

直接通分：

同样考虑用分治求解上述式子。

我们记 ，。

不难发现 ，。

直接分治即可。复杂度 。

而之前求方案数同样可以考虑用上述分治方法完成。并且由于多项式快速幂的大常数，两者的效率差不多。

综上最终的复杂度为 。

示例代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
namespace work_A
{
	#define mid ((l+r)>>1)
	poly tA,tB;
	inline poly solve(int l,int r)
	{
		if(l==r)return r=1ll*inv[2]*a[l]%mod,(poly{r,sub(1-a[l]),r});
		return Get_Mul(solve(l,mid),solve(mid+1,r),-1);
	}
	Poly tp;
	Poly work(Poly L,Poly R)
	{
		int lim=1,p=0,Lb=L.b.size(),Rb=R.b.size();
		for(;lim<Lb+Rb;lim<<=1,p++);
		L.resize(lim),R.resize(lim);
		DFT(L.a),DFT(L.b),DFT(R.a),DFT(R.b);
		for(int i=0;i!=lim;++i)L.a[i]=(1ll*L.a[i]*R.b[i]+1ll*R.a[i]*L.b[i])%mod;
		dot(L.b,R.b),IDFT(L.a),IDFT(L.b);
		L.resize(min(Lb+Rb-1,n+1));
		return L;
	}
	Poly solve2(int l,int r)
	{
		if(l==r)return (Poly){{tA[l]},{1,sub(-tB[l])}};
		return work(solve2(l,mid),solve2(mid+1,r));
	}
	inline Poly main()
	{
		tA=solve(1,A);   //分治求((a_ie^2x+a_i)/2+(1-a_i)e^x) 
		tB.resize(tA.size());
		for(int i=0;i<(int)tA.size();i++)tB[i]=i-A;
		if((int)tA.size()<n)tA.resize(n),tB.resize(n);
		//分治展开 e^kx 
		tp=solve2(0,tA.size()-1);
		tp.b=Get_Inv(tp.b,tp.b.size());
		tp.a=Get_Mul(tp.a,tp.b,n+1);
		for(int i=0;i<=n;i++)tp.a[i]=1ll*tp.a[i]*ifac[i]%mod;
		//ksm求A的方案数 
		tp.b.resize(n+1);
		for(int i=0;i<=n;i++)(i&1)?tp.b[i]=0:tp.b[i]=ifac[i];
		tp.b=Get_Ksm(tp.b,n+1,A);
		return tp;
	}
}
namespace work_B
{
	Poly tp;
	inline Poly main()
	{
		//ksm求B的方案数和价值 
		tp.resize(n+1);
		for(int i=0;i<=n;i+=2)tp.b[i]=ifac[i+1];
		tp.b=Get_Ksm(tp.b,n+1,B);
		for(int i=n;i-B>=0;i--)tp.b[i]=tp.b[i-B];
		for(int i=0;i<B;i++)tp.b[i]=0;
		int mul=1;
		for(int i=1;i<=B;i++)mul=1ll*mul*b[i]%mod;
		for(int i=B;i<=n;i+=2)tp.a[i]=1ll*tp.b[i]*mul%mod;
		return tp;
	}
}
namespace work_P
{
	poly solve(int l,int r)
	{
		if(l==r)return poly{sub(1-p[l]),p[l]};
		return Get_Mul(solve(l,(l+r)>>1),solve(((l+r)>>1)+1,r));
	}
	inline poly main(){return solve(1,n);}//分治求 P 
}
inline poly merge(Poly a,Poly b)//合并A，B 
{	
	a.a=Get_Mul(a.a,b.a,n+1);
	a.b=Get_Mul(a.b,b.b,n+1);
	for(int i=B;i<=n;i+=2)a.a[i]=1ll*a.a[i]*ksm(a.b[i],mod-2)%mod;
	return a.a;
}
int main()
{
	n=read(),A=read(),B=read();
	a.resize(A+1),b.resize(B+1),p.resize(n+1);
	for(int i=1;i<=n;i++)p[i]=read();
	for(int i=1;i<=A;i++)a[i]=read();
	for(int i=1;i<=B;i++)b[i]=read();
	init(N>>1);
	AB=merge(work_A::main(),work_B::main());
	P=work_P::main();
	for(int i=B;i<=n;i+=2)ans=(ans+1ll*AB[i]*P[i])%mod;
	printf("%d\n",ans);
	return 0;
}