【GDOI2020模拟03.11】我的朋友们（多项式求逆+分治NTT）

题目大意：

---

(1 le l le n le 10^5)

题解：

---

写完之后觉得我死了，这应该是我做过的最复杂的分治NTT。

设(p[i])表示第(i)个点概率，为了表达方便，先把(p[i]) reverse一下。

设(P(i)=p[i]·x+1-p[i])

考虑设(f[i])表示从第(i)个点出发的期望步数。
(i<l,f[i]=0)

设(H_i(x)=prod_{j=i-l+1}^{i}P(j))
(ige l,f[i]=1+sum_{j=0}^l f[i-j]*H_i[x^j])

(j=0)时,(f[i-j]=f[i]),把这一项移到等式右边，解个方程可得：
(i ge l,f[i]=(1+sum_{j=1}^l f[i-j]*H_i[x^j])/(1-H_i[x^0]))

得到了(O(n^2))的做法。

---

设(F_i=sum_{j=1}^i f[j]*x^j)
则(f[i]=F_{i-1}*H_i[x^i])

考虑分治求(f[])，现在已经求出了(f[1..x-1])，要求(f[x..y])

在这个分治的过程中，动态的维护两个函数(F[x][y],G[x][y])

(G[x][y]=prod_{j=y-l+1}^{x}P(j))

它的含义即为(f[x..y])的转移里都会用到(P)的乘积。

注意到(y-l+1)可能会大于(x)，此时我们把意义推广，设(SP)为(P)的前缀积，则：
(G[x][y]=prod_{j=y-l+1}^{x}P(j)=SP[x]/SP[y-l])

(F[x][y]=F_{x-1}*G[x][y])

如果能一直维护这两个函数，那么当(x=y)时直接取(F[x][y])第(x)项的系数就好了。

设(m=(x+y)/2)

1.由([x,y])递归至([x,m])

(G[x][m]=G[x][y]*prod_{i=m}^{r-1}P(i-l+1)=G[x][y]*prod_{i=m+1}^{r}P(i-l))

(F[x][m]=F[x][y]*prod_{i=m+1}^{r}P(i-l))

2.由([x,y])递归至([m+1,y])

(G[m+1][y]=G[x][y]*prod_{i=x+1}^{m+1}P(i)=G[x][y]*prod_{i=x}^{m}P(i+1))

(F[m+1][y]=F[x][y]*prod_{i=x}^{m}P(i+1)+(F_m-F_{x-1})*G[m+1][y])

发现每次乘上的(prod P)都可以通过分治NTT预处理出来

当然这么做并没有使复杂度降低。

观察(F[x][y],G[x][y])，在递归的过程中一直乘(prod P)，也就是次数最多+(y-x)。

最后要统计答案取的那一项的次数也在([x,y])里。

那么只维护({F[x][y]over x^{max(0,x-(y-x))}})的前(2(y-x))项和(G[x][y])的前(y-x)项就可以了。

因为一切多项式的长度都是(O(y-x))，所以时间复杂度是(O(n~log^2~n))

最后一个问题就是(F[1][n])和(G[1][n])怎么求？

(F[1][n])显然是0.

(G[1][n]=SP[1]/SP[n-l])

分治NTT之后再多项式求逆就可以求出(G[1][n])。

Code：

#include<bits/stdc++.h>
#define fo(i, x, y) for(int i = x, _b = y; i <= _b; i ++)
#define ff(i, x, y) for(int i = x, _b = y; i <  _b; i ++)
#define fd(i, x, y) for(int i = x, _b = y; i >= _b; i --)
#define ll long long
#define pp printf
#define hh pp("
")
using namespace std;

const int mo = 998244353;

ll ksm(ll x, ll y) {
	ll s = 1;
	for(; y; y /= 2, x = x * x % mo)
		if(y & 1) s = s * x % mo;
	return s;
}

#define V vector<ll>
#define re resize
#define si size()
const int nm = 1 << 18;
namespace ntt {
    ll w[nm], a[nm], b[nm]; int r[nm];
    void build() {
        for(int i = 1; i < nm; i *= 2) {
            ll v = ksm(3, (mo - 1) / 2 / i);
            w[i] = 1; ff(j, 1, i) w[i + j] = w[i + j - 1] * v % mo;
        }
    }
    void dft(ll *a, int n, int f) {
        ff(i, 0, n) {
            r[i] = r[i / 2] / 2 + (i & 1) * (n / 2);
            if(i < r[i]) swap(a[i], a[r[i]]);
        } ll b;
        for(int i = 1; i < n; i *= 2) for(int j = 0; j < n; j += 2 * i)
            ff(k, 0, i) b = a[i + j + k] * w[i + k], a[i + j + k] = (a[j + k] - b) % mo, a[j + k] = (a[j + k] + b) % mo;
        if(f == -1) {
            reverse(a + 1, a + n);
            b = ksm(n, mo - 2);
            ff(i, 0, n) a[i] = (a[i] + mo) * b % mo;
        }
    }
    void fft(V &p, V &q) {
        int p0 = p.si + q.si - 1, n = 1;
        for(; n < p0; n *= 2);
        ff(i, 0, n) a[i] = b[i] = 0;
        ff(i, 0, p.si) a[i] = p[i];
        ff(i, 0, q.si) b[i] = q[i];
        dft(a, n, 1); dft(b, n, 1);
        ff(i, 0, n) a[i] = a[i] * b[i] % mo;
        dft(a, n, -1);
        p.re(p0);
        ff(i, 0, p0) p[i] = a[i];
    }
}

V operator * (V p, V q) {
    ntt :: fft(p, q);
    return p;
}
void dft(V &p, int f) {
    ff(i, 0, p.si) ntt :: a[i] = p[i];
    ntt :: dft(ntt :: a, p.si, f);
    ff(i, 0, p.si) p[i] = ntt :: a[i];
}
V qni(V a) {
    int a0 = a.si, n0 = 1;
    while(n0 < a0) n0 *= 2;
    V b; b.re(1); b[0] = ksm(a[0], mo - 2);
    for(int n = 2; n <= n0; n *= 2) {
        V d = b; d.re(n); b.re(2 * n);
        V c = a; c.re(n); c.re(2 * n);
        dft(c, 1); dft(b, 1);
        ff(i, 0, b.si) b[i] = c[i] * b[i] % mo * b[i] % mo;
        dft(b, -1); b.re(n);
        ff(i, 0, b.si) b[i] = (2 * d[i] - b[i] + mo) % mo;
    }
    b.re(a0);
    return b;
}
V operator + (V p, V q) {
	p.re(max(p.si, q.si));
	ff(i, 0, q.si) p[i] = (p[i] + q[i]) % mo;
	return p;
}

const int N = 1e5 + 5;

int n, l;
ll x, y, p[N];
ll sp[N], np[N];

void Init() {
	scanf("%d %d", &n, &l);
	fo(i, 1, n) {
		scanf("%lld %lld", &x, &y);
		p[i] = x * ksm(y, mo - 2) % mo;
	}
	reverse(p + 1, p + n + 1);
	sp[0] = 1; fo(i, 1, n) sp[i] = sp[i - 1] * (1 - p[i]) % mo;
	np[n] = ksm(sp[n], mo - 2); fd(i, n, 1) np[i - 1] = np[i] * (1 - p[i]) % mo;
}

ll calc(int x) {
	return sp[x] * np[x - l] % mo;
}

V t1[N * 4], t2[N * 4];

#define i0 i + i
#define i1 i + i + 1
void dg(int i, int x, int y) {
	if(x > y) return;
	if(x == y) {
		t1[i].re(2);
		t1[i][0] = 1 - p[x + 1];
		t1[i][1] = p[x + 1];
		
		ll v = x >= l ? p[x - l] : 0;
		t2[i].re(2);
		t2[i][0] = 1 - v;
		t2[i][1] = v;
		return;
	}
	int m = x + y >> 1;
	dg(i0, x, m); dg(i1, m + 1, y);
	t1[i] = t1[i0] * t1[i1];
	t2[i] = t2[i0] * t2[i1];
}

V g;

V dfs(int x, int y) {
	V a;
	if(x > y) {
		a.re(1); a[0] = 1;
		return a;
	}
	if(x == y) {
		a.re(2); a[0] = 1 - p[x]; a[1] = p[x];
		return a;
	}
	int m = x + y >> 1;
	return dfs(x, m) * dfs(m + 1, y);
}

ll a[N];

void zy(V &a, int b) {
	ff(i, b, a.si) a[i - b] = a[i];
	a.re(a.si - b);
}

void yy(V &a, int b) {
	int sa = a.si;
	a.re(sa + b);
	fd(i, sa - 1, 0) a[i + b] = a[i], a[i] = 0;
}

void qz(V &a, int b) {
	if(a.si > b + 1) a.re(b + 1);
}

V fz(int i, int x, int y, V f, V g, int w) {
	V b; b.re(1); b[0] = 0;
	if(x > y) return b;
	
	int nw = max(0, x - (y - x));
	if(nw > w) zy(f, nw - w);
	qz(f, 2 * (y - x)); qz(g, (y - x));
	
	if(x == y) {
		if(x < l) {
			a[x] = 0;
		} else {
			a[x] = (f[0] + 1) * ksm(1 - calc(x), mo - 2) % mo;
		}
		b.re(1); b[0] = a[x];
		return b;
	}
	
	int m = x + y >> 1;
	
	V nf = f * t2[i1], ng = g * t2[i1];
	b = fz(i0, x, m, nf, ng, nw);
	
	nf = f * t1[i0], ng = g * t1[i0];
	qz(ng, y - x);
	V d = b * ng; yy(d, x - nw);
	nf = nf + d;
	V c = fz(i1, m + 1, y, nf, ng, nw);
	
	yy(c, m - x + 1);
	return b + c;
}

int main() {
	freopen("friends.in", "r", stdin);
	freopen("friends.out", "w", stdout);
	ntt :: build();
	Init();
	dg(1, 1, n);
	V g;
	if(l == n) g = dfs(1, 1); else {
		g = dfs(2, n - l);
		g.re(n + 1);
		g = qni(g);
	}
	V f; f.re(n + 1); fo(i, 0, n) f[i] = 0;
	fz(1, 1, n, f, g, 0);
	pp("%lld
", (a[n] + mo) % mo);
}