bzoj4891: [Tjoi2017]龙舟

求$\frac{b_1b_2b_3...b_m}{a_1a_2a_3...a_m}\%M$

M<=1e18,m<=100000,数据组数<=50

用pollard-rho分解M的质因数，提取出$b_i,a_i$与M不互质的部分处理一下

#include<cstdio>
#include<algorithm>
typedef long long i64;
typedef long double ld;
char buf[],*ptr=buf+;
int G(){
    if(buf+==ptr)fread(ptr=buf,,,stdin);
    return *ptr++;
}
i64 _(){
    i64 x=;
    if(ptr-buf<){
        while(*ptr<)++ptr;
        while(*ptr>)x=x*+(*ptr++)-;
    }else{
        int c=G();
        while(c<)c=G();
        while(c>)x=x*+c-,c=G();
    }
    return x;
}
int n,m,k;
i64 b[],a[][];
int fp,ts[];
i64 fs[];
i64 mul(i64 a,i64 b,i64 c){
    if(c<=2000000000ll)return a*b%c;
    i64 r=a*b-i64(ld(a)/c*b)*c;
    if(r>=c||r<=-c)r%=c;
    return r>=?r:r+c;
}
i64 pw(i64 a,i64 n,i64 P){
    i64 v=;
    for(;n;n>>=,a=mul(a,a,P))if(n&)v=mul(v,a,P);
    return v;
}
i64 gcd(i64 a,i64 b){
    if(a<)a=-a;
    for(i64 c;b;c=a,a=b,b=c%b);
    return a;
}
bool mr(i64 n){
    i64 z=n-;
    int t=;
    while(~z&)z>>=,++t;
    for(int i=;i<;++i){
        i64 a=rand()%(n-)+;
        i64 x=pw(a,z,n);
        for(int j=;j<t;++j){
            i64 y=mul(x,x,n);
            if(y==&&x!=&&x!=n-)return ;
            x=y;
        }
        if(x!=)return ;
    }
    return ;
}
i64 get(i64 x,int c){
    int i=,j=;
    i64 a=(rand()^i64(rand())<<)%(x-)+,b=a;
    while(){
        a=mul(a,a,x);
        if((a+=c)>=x)a%=x;
        i64 p=gcd(a-b,x);
        if(p!=)return p;
        if((++i)==j)j<<=,b=a;
    }
}
void calc(i64 n){
    if(n==)return;
    if(mr(n)){
        fs[fp++]=n;
        return;
    }
    for(int c=;;++c){
        i64 a=get(n,c);
        if(a!=n){
            i64 b=gcd(a,n/a);
            calc(a/b);
            calc(n/a/b);
            calc(b);
            return;
        }
    }
}
i64 cal(i64*b,i64*a,i64 M){
    fp=;
    calc(M);
    std::sort(fs,fs+fp);
    fp=std::unique(fs,fs+fp)-fs;
    i64 phi_M=M;
    for(int i=;i<fp;++i)ts[i]=,phi_M=phi_M/fs[i]*(fs[i]-);
    i64 B=,A=,x;
    for(int i=;i<=m;++i){
        x=b[i];
        if(fs[]==)for(;~x&;x>>=,++ts[]);
        for(int j=(fs[]==);j<fp;++j){
            for(i64 p=fs[j],y=x/p;y*p==x;x=y,y=y/p,++ts[j]);
        }
        B=mul(B,x,M);
    }
    for(int i=;i<=m;++i){
        x=a[i];
        if(fs[]==)for(;~x&;x>>=,--ts[]);
        for(int j=(fs[]==);j<fp;++j){
            for(i64 p=fs[j],y=x/p;y*p==x;x=y,y=y/p,--ts[j]);
        }
        A=mul(A,x,M);
    }
    B=mul(B,pw(A,phi_M-,M),M);
    for(int i=;i<fp;++i){
        if(ts[i]<)return -;
        B=mul(B,pw(fs[i],ts[i],M),M);
    }
    return B;
}
int main(){
    srand();
    n=_();m=_();k=_();
    for(int i=;i<=m;++i)b[i]=_();
    for(int t=;t<=n;++t)
    for(int i=;i<=m;++i)a[t][i]=_();
    for(int i=;i<k;++i){
        int x=_();
        i64 M=_();
        printf("%lld\n",cal(b,a[x],M));
    }
    return ;
}